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Abstract 


This  thesis  describes  an  approach  to  fabric  analysis 
that  differs  fro®  the  conventional  approach  in  making  more 
extensive  use  of  numerical  methods  in  all  stages  of  the 
procedure.  Some  new  numerical  and  display  techniques  are 
presented;  some  techniques  are  described  that  are  not  in 
themselves  new  but  have  not  been  used  before  in  fabric 
analysis;  a  procedure  for  computer-assisted  fabric  analysis 
has  been  devised,  and  all  the  computer  programs  necessary  to 
implement  the  procedure  are  provided. 

The  widespread  adoption  of  numerical  methods  of 
producing  contoured  orientation  diagrams  in  place  of  the 
conventional  graphical  methods  leads  to  consideration  of 
estimators  of  population  density  other  than  the  one 
conventionally  used  by  geologists  because  of  its  unique 
adaptability  to  graphical  solution.  The  existing  theory  of 
nonparametric  density  estimators  shows  the  conventional 
estimator  to  be  but  a  special  case  of  one  class  of  density 
estimators.  Exploratory  investigation  (theoretical  and 
experimental)  of  a  different  estimator  of  the  same  class  and 
of  an  estimator  of  a  different  class  under  simple  conditions 
of  unimodal  Fisher-distributed  populations  reveals 
differences  in  the  statistical  properties  of  the  estimators, 
the  greatest  differences  appearing  between  estimators  of 

different  classes. 

Contoured  density  diagrams  are  used  to  suggest  a 
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tentative  model  for  the  population  and  to  provide  estimates 
of  model  parameters.  For  both  purposes  a  series  of  diagrams 
should  be  produced  using  a  wide  range  of  degrees  of 
smoothing.  No  particular  degree  of  smoothing  can  be  chosen 
a  .priori  as  being  optimum  for  either  purpose,  since  the 
optimum  degree  of  smoothing  in  both  cases  depends  on  the 
population  and  may,  furthermore,  be  different  for  different 
elements  of  the  population.  When  the  general  class  of 
models  being  considered  is  a  mixture  of  Fisher 
distributions,  estimates  of  concentration  parameters  can  be 
obtained  from  measures  of  the  size  and/or  shape  of  the  peaks 
appearing  on  contoured  density  diagrams  using  relationships 
derived  theoretically  and  verified  experimentally  in  this 
study.  The  contoured  density  diagram  thus  serves  in  the 
model-selection  and  parameter-estimation  stages  of  the 
model-building  process;  except  in  the  case  of  simple 
single-element  populations,  techniques  for  the  remaining 
stage  -  testing  the  adequacy  of  the  model  -  are  lacking,  and 
a  model  thus  constructed  cannot  be  regarded  as  statistically 

sound . 

Techniques  are  described  for  characterizing  an  isolated 
fabric  element.  Such  a  characterization  is  meaningless 
unless  its  adequacy  is  tested  using  a  combination  of  data 
displays  and  statistical  tests;  suitable  tests  are 
described.  Multisample  tests  are  described  for  axially 
symmetric  cases.  Most  of  the  characterization  techniques 
and  tests  for  axis  data  are  new  to  fabric  analysis.  A  new 
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technigue  for  producing  smoothed  rose  diagrams  is  described, 
and  ways  of  dealing  with  weighted  observations  suggested. 

A  procedure  is  described  for  definition  of  homogeneous 
subfabric  domains  based  on  statistical  tests  for  homogeneity 
of  mean  directions  and  dispersions  of  local  samples.  Local 
disturbances  of  the  fabric  are  identified  by  exceptionally 
large  dispersions  or  exceptionally  large  deviations  from  the 
overall  mean.  A  new  map  display  simultaneously  shows 
location  and  three-dimensional  orientation  of  fabric 
elements  or  local  means,  or  deviations  of  these  from  an 
overall  mean,  so  that  regions  of  consistent  deviation  from 
the  overall  mean  can  be  readily  identified  as  distinct 
fabric  domains. 
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1  Introduction 

1.1  conventional  Fabric  Analysis 

1.1.1  Definitions 

The  internal  geometric  properties  of  a  rock  body  are 
collectively  referred  to  as  the  fabric  of  the  body.  In 
studying  fabric  an  investigator  observes  a  large  number  of 
individual  structures,  which  may  be  planar  structures  such 
as  joints,  bedding  and  cleavage,  or  linear  structures  such 
as  long  axes  of  sedimentary  particles  or  intersections  of 
bedding  and  cleavage.  In  order  to  form  part  of  the  fabric, 
a  structure  must  be  penetrative,  that  is,  it  must  be  present 
throughout  the  body  of  rock  being  studied.  Thus  a  single 
shear  surface  is  not  part  of  the  fabric  of  the  body,  but 
many  closely  spaced  shear  surfaces  throughout  the  body  are. 
Each  kind  of  penetrative  structure  with  a  distinct  geometric 
configuration  is  called  a  fabric  element;  the  geometric 
configuration  of  a  particular  fabric  element  is  called  the 
subfabric  for  that  element.  The  fabric  is  the  sum  of  all 
the  subfabrics  (Turner  and  Weiss,  1963,  pp. 15-45). 

The  primary  object  of  fabric  analysis,  and  the  one  with 
which  we  are  exclusively  concerned  in  this  thesis,  is  to 
describe  the  fabric  of  the  rock  body  under  study.  For  this 
purpose  the  rock  body  is  subdivided  into  the  smallest  number 
of  portions  within  which  the  fabric  may  be  regarded  as 


>1 


l  '  v  .  '  -.a  >  L :  .  v  -  .  /*>. 

>V  iowa  c  t  \t>oU  ai  o.  .  .j  -*uoq; 


2 


spatially  homogeneous.  Each  such  portion  is  called  a  fabric 
domain,  and  the  fabric  of  each  domain  is  described 
separa  tely . 

What  constitutes  a  fabric  domain  depends  on  the  scale 
of  the  investigation.  "Scale"  here  does  not  refer  to  the 
geographic  extent  of  the  rock  body  under  study,  but  rather 
to  the  size  of  the  smallest  portion  of  the  rock  body  that  is 
considered  as  a  distinct  unit,  referred  to  here  as  a 
"sampling  unit".  For  example,  in  a  very  small-scale  study, 
the  sampling  unit  might  be  a  thin  section  of  rock  examined 
microscopically.  In  this  case,  a  portion  of  the  rock  body 
would  be  a  fabric  domain  only  if  all  the  thin  sections  from 
within  that  portion  had  similar  fabrics.  On  the  other  hand, 
an  entire  outcrop  might  be  treated  as  a  sampling  unit  if 
variations  on  a  smaller  scale  were  not  of  interest.  In  this 
case  a  fabric  domain  would  be  a  group  of  adjacent  outcrops 
having  similar  fabrics.  Note  that  if  the  locations  of  all 
observations  are  precisely  recorded,  the  sampling  units  can 
later  be  redefined,  either  on  the  same  scale  or  on  a  larger 
or  smaller  scale  (redefinition  of  sampling  units  on  a 
smaller  scale  being  limited  by  the  density  of  observations) . 
Finally,  we  define  a  subfabric  domain  for  a  particular 
fabric  element  as  the  largest  group  of  adjacent  sampling 
units  having  similar  subfabrics  for  that  fabric  element. 
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1.1.2  Reasons  for  Studying  Fabric 

Suppose  a  geologist  wishes  to  elucidate  the  history  of 
deformation  of  a  body  of  deformed  rock,  to  obtain 
information  about  the  forces  that  caused  the  deformation. 
He  makes  the  reasonable  assumption  that  the  observed  fabric 
of  the  rock  reflects  the  stresses  and  strains  that  have  been 
a  part  of  the  history  of  the  rock.  Or  a  geologist  may  wish 
to  determine  the  direction  of  movement  of  the  transporting 
medium  that  deposited  a  sediment;  for  example,  the  direction 
of  wind  that  formed  a  sand  dune  (the  prevailing  wind 
direction  is  important  in  inferring  the  latitude  and/or 
orientation  of  the  land  mass  at  the  time  of  deposition  of 
the  sediment) ,  the  direction  of  flow  of  a  river  that 
deposited  a  sand  bar  (if  the  bar  contains  oil,  other  pools 
may  be  found  in  the  upstream  or  downstream  directions) ,  the 
direction  of  movement  of  a  glacier  that  deposited  a  till 
(regional  flow  patterns  of  ancient  continental  glaciers  have 
important  implications  for  the  study  of  past  and  present 
climates),.  Again  the  assumption  is  made  (well  substantiated 
in  both  field  and  laboratory)  that  the  present  fabric  of  the 
rock  or  sediment  is  inherited  from  the  flow  of  the 

transporting  medium,  with  more  or  less  modification  by 
post-depositional  processes.  An  engineer  may  wish  to 
determine  safe  angles  of  rock  slopes  to  reduce  the  risk  of 
slope  failure  and  to  reduce  the  cost  of  removing  rock  and 
overburden  in  making  the  slope.  The  underlying  assumption 
here  is  that  the  type  of  failure  and  probability  of  failure 
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of  a  cock  slope  depend  on  the  orientation,  density  and 
physical  properties  of  the  discontinuities  within  the  rock* 

1.1.3  Conventional  Fabric  Analysis 

The  conventional  procedure  for  fabric  analysis  is 
described  by  Turner  and  Weiss  (1963,  pp. 146-151),  and 
consists  of  the  following  steps. 

(1)  Collect  data  as  uniformly  as  possible  over  the 
exposed  parts  of  the  rock  body. 

(2)  Subdivide  the  rock  body  into  sampling  units. 

(3)  Plot  orientation  diagrams  for  all  measured 
subfabrics  for  all  sampling  units. 

(4)  By  trial  and  error,  combine  adjacent  sampling  units 
having  similar  fabrics  (that  is,  sampling  units  all  of  whose 
subfabrics  are  similar)  into  fabric  domains. 

(5)  Look  among  the  fabric  domains  for  subfabric  domains 
which  are  even  more  extensive. 


io 
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1.2  Computer- Assisted  Fabric  Analysis 

1-2.1  Drawbacks  of  the  Conventional  Procedure 

The  conventional  method  of  fabric  analysis  suffers  from 
the  following  disadvantages. 

(1)  All  the  fabric  elements  measured  must  be  identified 
and  distinguished  at  the  beginning  of  the  study,  and  each 
structure  must  be  identified  at  the  time  it  is  measured  as 
belonging  to  one  particular  fabric  element,  so  that  each 
fabric  element  can  be  plotted  separately  for  each  sampling 
unit. 

(2)  In  order  to  study  the  fabric  on  a  scale  different 
from  that  initially  chosen,  a  great  deal  of  time  and  work 
must  be  invested  in  redefining  the  sampling  units  and 
replotting  the  diagrams. 

(3)  Combination  of  sampling  units  by  trial  and  error  is 
tedious  and  time-consuming.  Moreover  it  is  a  qualitative 
and  subjective  procedure,  lacking  in  statistical  criteria. 

1.2.2  Advantages  of  Computer- Assisted  Procedure 

Use  of  the  computer  in  fabric  analysis  provides  the 
following  advantages. 

(1)  Orientation  diagrams  can  be  plotted  rapidly  and 
cheaply  by  the  computer  even  for  large  numbers  of  data 
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points*  Thus  it  is  feasible,  using  the  computer,  to  make 
diagrams  showing  all  the  observations  of  a  particular  fabric 
element,  or  all  the  observations  of  all  the  fabric  elements. 
This  aids  in  determining  the  number  of  fabric  elements 
present  and  removes  the  necessity  of  identifying  each 
structure  at  the  outcrop,  since  with  such  diagrams  available 
the  different  fabric  elements  can  be  more  reliably  separated 
after  all  the  observations  have  been  made. 

(2)  If  the  data  are  stored  in  machine-readable  form  the 
computer  can  selectively  retrieve  the  data,  so  that 
orientation  diagrams  for  each  fabric  element  in  each 
sampling  unit  can  be  produced  easily  and  quickly. 

(3)  When  the  data  are  handled  by  the  computer,  it  is 
easy  tc  implement  statistical  tests  for  similarity  of 
subfabrics  in  different  sampling  units,  thus  removing  much 
tedious  work  and  providing  a  quantitative  basis  for 

decisions. 

(4)  The  entire  analysis  is  speeded  up  to  such  a  degree 
that  many  iterations  are  possible,  allowing  more  thorough 
testing  of  more  hypotheses,  thus  increasing  the  value  of  the 
analysis. 

(5)  Due  to  the  high  speed  of  the  computer,  techniques 
can  be  used  freely  that  were  either  laborious  or  not 
feasible  at  all  in  conventional  fabric  analysis.  For 


example. 
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orientation  diagrams,  that  have  many  advantages  over 
graphical  methods,  are  already  widely  implemented  using 
computers;  without  a  computer  only  graphical  methods  are 
feasible.  As  another  example,  rotation  and  replotting  of 
fabric  data  can  often  aid  in  the  analysis.  While  simple  to 
achieve  using  the  computer,  the  conventional  graphical 
rotation  procedure  is  so  laborious  as  to  be  used  only  when 
unavoidable,  especially  when  many  observations  are  involved. 

1.2.3  New  Procedure  Using  the  Computer 

As  indicated  above,  a  somewhat  different  procedure  for 
fabric  analysis  can  be  followed  when  a  computer  is  used. 
This  new  procedure  is  illustrated  in  Figure  1..  The  first 
step  in  this  procedure  after  collection,  organization  and 
storage  of  the  data  is  selective  retrieval  of  those  data 
thought  to  constitute  one  fabric  element,  for  example, 
observations  of  joints.  The  retrieved  data  is  characterized 
and  displayed.  The  numerical  characterization  aids  in  the 
next  step,  which  is  to  decide  whether  or  not  the  retrieved 
data  actually  constitute  a  single  fabric  element.  If  more 
than  one  fabric  element  is  present,  the  definition  is  made 
more  restrictive,  for  example,  joints  with  calcite  fillings, 
and  retrieval,  characterization  and  display  are  repeated. 
After  a  fabric  element  has  been  isolated,  it  is  necessary  to 
perform  an  areal  analysis  to  define  the  subfabric  domains. 

Areal  analysis  begins  with  the  production  of  map 
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displays  by  the  computer,  to  be  used  by  the  geologist  for 
outlining  the  sampling  units.  Once  the  information  defining 
these  has  been  made  available  to  the  computer,  the  subfabric 
of  each  sampling  unit  is  characterized  and  more  map  displays 
are  produced  showing  the  subfabrics.  The  geologist  uses 
these  displays  to  group  similar  samples,  and  the  computer 
performs  statistical  tests  for  homogeneity  of  the  grouped 
samples.  An  interactive  program  allows  this  operation  to  be 
performed  many  times  as  rapidly  as  the  geologist  can  enter 
new  groupings.  Thus  the  domains  for  that  subfabric  can  be 
quickly  defined.  As  each  domain  is  defined,  its  subfabric 
is  characterized. 

The  next  fabric  element  is  then  retrieved  from  the  data 
file  and  the  process  repeated.  Aftef  all  the  fabric 
elements  have  been  identified,  and  subfabric  domains  defined 
for  each,  fabric  domains  are  found  by  superimposing  the 
subfabric  domains.  Thus,  in  this  procedure,  subfabric 
domains  are  established  first,  and  then  fabric  domains 
obtained  by  combining  these. 

1.2.4  Designing  a  Computer-Assisted  Procedure 

The  steps  involved  in  designing  a  scheme  for 
computer-assisted  fabric  analysis  were  as  follows. 

(1)  The  entire  fabric  analysis  procedure  was  broken 
down  into  the  sequence  of  operations  and  decisions  shown  in 
Figure  1«  This  established  the  operations  involved,  the 
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sequence  in  which  these  operations  would  be  performed,  and 
the  lcops  or  re-entry  points  required  for  iterative 
operations  or  sequences  of  operations. 

(2)  The  operations  shown  in  Figure  1  were  categorized 
according  to  whether  or  not  they  could  be  performed  by  the 
computer.  Operations  involving  only  data  handling, 
computation  or  production  of  displays  can  be  performed  by 
the  computer;  those  involving  decisions  based  on  experience 
and  judgement  cannot.  The  operations  represented  by 
rectangular  boxes  on  Figure  1  can  be  performed  by  the 
computer;  those  represented  by  trapezoidal  boxes  must  be 
performed  by  the  geologist.  The  decisions  controlling  the 
sequence  of  these  operations  are  of  course  made  by  the 
geologist. 

(3)  The  arrangement  of  computer  programs  and  the  inputs 
and  outputs  of  each  was  then  designed,  taking  into  account 
flexibility,  efficiency  and  possibility  of  re-entry  at 
various  points  as  well  as  the  essential  inputs  and  outputs. 
The  final  arrangement  of  the  programs  and  their  inputs  and 
outputs  is  shown  in  Figure  2  for  the  data  organization, 
storage,  retrieval,  characterization  and  display  operations. 
Programs,  inputs  and  outputs  for  the  remaining  operations, 
comprising  the  areal  analysis  phase  of  the  procedure,  are 
detailed  in  Chapter  4. 

(4)  The  computer  programs  were  written.  These  are 


documented  in  Appendix  1. 


€  .  C£V„ fi- 


10 


1-2-5  Scope  and  Organization  of  Thesis 

The  contributions  of  this  thesis  to  the  methodology  of 
fabric  analysis  are  of  four  kinds. 

(1)  Some  new  numerical  and  display  techniques  are 
presented.  These  are  (a)  two  new  methods  of  contouring 
point  density,  including  experimental  and  theoretical 
investigation  of  the  new  and  conventional  methods,  and  (b)  a 
new  map  display  to  assist  in  areal  analysis. 

(2)  Some  techniques  are  presented  that  are  not  in 
themselves  new  but  have  not  been  used  before  in  fabric 
analysis.  These  are  statistical  tests  for  axial  orientation 
data-  Some  procedures  for  weighted  observations  are 
suggested. 

(3)  A  scheme  for  computer-assisted  fabric  analysis  has 
been  devised.  In  this  scheme  all  operations  involving 
decisions  are  carried  out  by  the  geologist,  while  the 
computer  performs  all  data  handling,  computation  and  display 
operations. 

(4)  All  the  computer  programs  necessary  to  implement 
the  above  computer-assisted  procedure  are  provided. 

The  organization  of  the  thesis  follows  the  outline  of 
Figure  1-  The  remainder  of  this  chapter  deals  with  data 
collection,  organization,  storage  and  retrieval  operations. 
Chapter  2  is  concerned  with  contoured  orientation  diagrams. 
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and  includes  a  description  of  two  new  methods  of  estimating 
populations.  Chapter  3  reviews  available  statistical 
methods  of  characterizing  isolated  fabric  elements,  and 
introduces  some  techniques  for  dealing  with  weighted 
observations.  The  remaining  operations  shown  in  Figure  1, 
that  is,  the  production  of  map  displays,  calculation  of 
statistics,  and  tests  for  homogeneity  of  subfabrics  are 
discussed  in  Chapter  4.  Chapter  5  contains  a  brief  summary 
and  a  list  of  recommendations. 


1.3  Data  Collection,  Storage  and  Retrieval 

1.3.1  Data  Collection 

Two  sets  of  data  were  used  in  the  development  of  the 
methods  described  in  this  thesis.  One  consists  of 
observations  of  discontinuities  of  various  kinds  made  in 
open-pit  mines  in  western  Canada.  sampling  was  by 
means  of  continuous  traversing.  Straight-line  traverses 
were  laid  out  along  the  pit  benches,  and  all  discontinuities 
intersecting  each  traverse  were  measured.  The  location  and 
orientation  of  each  traverse,  and  the  distance  of  each 
discontinuity  along  the  traverse,  were  recorded.  As  well  as 
the  orientation  of  each  discontinuity,  various  physical 
properties  were  recorded,  such  as  lithology,  size,  fillings, 
water  and  waviness.  Linear  fabric  elements  were  always 
recorded  as  a  pitch  on  a  discontinuity  surface. 
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The  other  set  of  data  consists  of  the  orientations  of 
the  long-axes  of  stones  in  glacial  till.  The  stones  had 
sizes  (long-axis  lengths)  from  about  1cm  to  about  10cm  and 
ratios  of  long-axis  length  to  intermediate-axis  length  from 
about  1.5  to  about  2.0.  Dimensions  of  the  stones  were  not 
recorded.  Samples  of  50  to  100  axes  were  measured  at 
selected  sites  within  the  exposure,  the  dimensions  of  the 
sample  sites  not  exceeding  about  0.5m  in  the  direction 
normal  to  the  bounding  surfaces  of  the  till  layer  and  about 
2m  in  the  direction  parallel  to  the  bounding  surfaces  of  the 
till.  Locations  of  the  sample  sites  were  recorded. 

Input  of  the  data  to  the  computer  is  greatly 
facilitated  if  the  data  are  recorded  in  the  field  on  special 
field  data  sheets  that  conform  to  the  requirements  of  the 
study.  This  has  the  additional  advantages  that,  first,  data 
collection  is  standardized  in  case  several  field  personnel 
are  involved,  and,  second,  in  the  course  of  drawing  up  the 
field  data  sheets  the  investigator  is  forced  to  plan 
carefully  the  requirements  of  the  survey  in  terms  of  the 
various  aspects  of  data  collection:  what  fabric  elements  are 
of  interest,  what  rock  types  are  likely  to  be  encountered, 
what  associated  physical  properties  should  be  observed  and 
recorded,  what  sampling  schemes  are  appropriate  (or 

possible) ,  and  so  on. 

Many  such  field  data  sheets  have  been  devised  for 

Some  of  these  are  described  by  Haugh, 


various  purposes. 
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Brisbin  and  Turek  (1967)  (for  structural  data) ,  Berner  et  al 
(1972)  (for  general  geological  mapping),  Laurin  et  al  (1972) 
(for  geological  mapping  in  the  Precambrian  shield) ,  Roddick 
and  Hutchison  (1972)  (primarily  for  lithologic  data) ,  and 
Lambert  and  Reesor  (1974)  (for  all  kinds  of  geological  data 
including  structural  data) •  The  method  of  collecting  and 
storing  the  data  should  not  limit  the  flexibility  of 
retrievals . 


1.3,2  Data  Organization  and  Storage 


Before  storage,  the  fabric  data  were  reduced  to  a  form 
suitable  for  subsequent  computer  processing.  Since 

calculations  involving  the  data  are  most  conveniently 
performed  using  direction  cosines,  the  orientations  of 
linear  fabric  elements  were  reduced  to  the  direction  cosines 
of  the  line,  while  the  orientations  of  planar  fabric 
elements  were  reduced  to  the  direction  cosines  of  their 
normals  (poles)..  For  the  open  pit  data,  a  correction  factor 
was  computed  for  each  observed  discontinuity  to  compensate 
for  the  sampling  bias  associated  with  straight-line 

traversing,  as  follows.  The  number  of  planes  of  a  given  set 
intersected  by  unit  length  of  traverse  (the  apparent  density 
of  the  planes)  depends  not  only  on  the  true  density  of  the 
planes  but  also  on  the  angle  the  planes  make  with  the 
traverse.  A  simple  geometric  argument  shows  that  the 
apparent  density  of  parallel  planes  in  a  direction  making  an 
angle  0  with  the  planes  is  less  than  the  true  density  by  a 
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factor  sin p  (Terzaghi,  1965).  Thus,  to  obtain  estimates  of 
the  relative  true  densities  of  planes  in  various 
orientations,  the  observed  densities  are  corrected  by  the 
factor  1/sin p  .  This  is  achieved  in  practice  by  associating 
each  observed  plane  with  a  correction  factor  or  weight  of 
1/sin  £  .  Extremely  large  weights  are  avoided  by  truncating 
at  P=5  degrees,  or  1/sin  0  «  11-5.  Thus  the  range  of  weights 
is  from  1.0  to  about  11.5. 

A  simple  file  structure  was  adopted  for  the  fabric 
data,  in  which  all  records  of  the  data  file  had  the  same 
format.  For  the  discontinuity  data,  each  record  contained 
the  information  relating  to  one  observation  of  a 
discontinuity.  Data  organization  and  storage  for  this  data 
was  performed  by  the  program  C0NVEBT3,  documented  in 
Appendix  1.  A  similar  file  structure  was  adopted  for  the 
pebble  axis  data;  each  record  of  this  file  contained  the 
information  relating  to  one  axis. 

1.3.3  Data  Retrieval 

It  was  found  after  some  experience  that  retrieved 
subsets  of  the  data  file  were  usually  subjected  to  further 
analysis,  and  that  it  was  usually  not  possible  to  predict  at 
the  time  of  the  retrieval  which  data  items  would  be  required 
in  the  subsequent  analysis.  For  this  reason  the  retrieval 
program  was  designed  to  retrieve  entire  data  records  rather 
than  individual  data  items.  This  had  the  advantage  of 
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simplifying  the  retrieval  program. 

To  allow  for  changes  in  the  format  of  the  data  file, 
and  to  permit  the  retrieval  program  to  be  used  with 
different  data  files  with  different  record  formats,  the 
retrieval  program  was  designed  to  be  independent  of  the 
record  format  of  the  data  file.  This  was  achieved  as 
follows.  Each  field  of  the  data  record  containing  one  data 
item  is  given  a  unique  name  and  a  table  is  constructed 
containing,  on  each  line  of  the  table,  one  data  name  and  the 
FORTRAN  format  specification  for  reading  the  corresponding 
field.  This  table  is  made  available  to  the  retrieval 
program,  and  data  items  are  referred  to  by  name  in  the 
retrieval  instructions.  From  the  table  the  program  obtains 
the  format  specif ication. 

Substantial  simplification  of  the  retrieval  program  was 
achieved  by  limiting  the  program  to  read  only  one  field  of 
the  data  record  on  each  "pass"  over  the  data  file.  This 
means  that  a  retrieval  requires  as  many  passes  over  the  data 
file  as  there  are  data  items  involved  in  the  retrieval 
request.  Since  most  retrievals  involve  conditions  on  only 
one  or  two  data  items,  and  since  much  less  computer  time  is 
required  to  read  one  field  than  to  read  the  entire  record, 
this  limitation  not  only  simplified  the  retrieval  program 
but  alsc  made  retrievals  faster- 

Thus  the  retrieval  program  (KEY4,  Appendix  1)  accepts 
two  kinds  of  instructions  (Figure  3) .  One  kind  of 
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instruction  involves  a  condition  on  a  named  data  item  and 
causes  the  program  to  read  the  input  data  file,  storing  the 
record  numbers  of  those  records  satisfying  the  condition. 
This  set  of  record  numbers,  called  a  "key",  is  associated 
with  a  name  (given  in  the  instruction)  and  stored  in  a 
temporary  file.  The  other  kind  of  instruction  refers  (by 
means  of  the  given  names)  to  previously  generated  keys,  and 
specifies  a  combination  of  the  conditions  used  to  produce 
those  keys.  The  result  of  this  operation  is  a  new  key, 
which  is  stored  in  the  temporary  file. 

For  example,  suppose  a  file  contains  structural  data 
and  it  is  required  to  retrieve  all  the  joints  with  dip 
directions  less  than  45  degrees  or  greater  than  225  degrees. 
The  seguence  of  instructions,  before  coding,  would  be 

(1)  Generate  a  key  containing  the  numbers  of  all  the 
records  in  which  dip  direction  is  less  than  45  degrees;  call 
the  key  "one". 

(2)  Generate  a  key  for  condition  "dip  direction  greater 
than  225  degrees";  call  it  "two". 

(3)  Generate  a  key  containing  all  the  numbers  in  either 
of  keys  "one"  or  "two";  call  the  new  key  "setl". 

(4)  Generate  a  key  for  the  condition  "type  equals 
joint";  call  it  "jnt". 

(5)  Generate  a  key  containing  all  the  record  numbers 
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occurring  in  both  keys  " jnt"  and  "setl";  call  it  "jntsetl" 
and  retrieve  those  records. 

The  output  from  this  run  would  be  a  file  containing  all 
those  data  records  corresponding  to  joints  with  dip 
directions  less  than  45  degrees  or  greater  than  225  degrees. 
The  program  can  also  be  instructed  to  output  any  or  all  of 
the  keys  produced  during  the  run.  For  example,  the  key  for 
all  joints  could  be  requested,  or  the  key  for  joint  set  1. 
Use  of  this  facility  can  save  much  computer  time,  as 
described  below. 

(1)  Moving  data  records  into  another  file  can  require 
considerable  amounts  of  computer  time. 

(2)  The  storage  space  required  by  a  key  is  orders  of 
magnitude  less  than  that  required  by  the  corresponding  data 
records.  This  makes  it  feasible  to  save  the  results  of  many 
•’retrievals"  so  that  if  the  same  data  is  required  again  the 
search  operations  do  not  need  to  be  repeated. 

(3)  Keys  saved  from  previous  runs  can  be  re-entered 
into  the  program  and  used  to  generate  new  keys  corresponding 
to  new  combinations  of  conditions  even  without  reference  to 
the  data  file. 

(4)  Processing  programs  can  easily  be  written  so  that 
they  use  the  original  data  file  and  a  key,  processing  only 
those  records  indicated  by  the  key.  Thus  for  many 
processing  purposes  it  not  necessary  to  produce  a  new  file 
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2  Data  Display  -  Contoured  Orientation  Diagrams 

2. 1  Introduction 

The  contoured  orientation  diagram  is  widely  used  in 
structural  geology  and  petrofabric  studies,  because  it  has 
proved  to  be  an  extremely  useful  method  of  displaying 
three-dimensional  fabric  data  for  the  purpose  of  inferring 
the  fabric  of  the  rock.  A  device  that  is  so  widely  used  and 
on  which  so  many  conclusions  are  based  ought  to  be  well 
understood.  However,  progress  toward  a  thorough 

understanding  of  the  contoured  orientation  diagram  has  been 
slow.  An  important  step  in  this  direction  was  taken  by  Kamb 
(1959)  who  pointed  out  some  of  the  statistical  properties  of 
the  density  values  obtained  by  conventional  techniques. 
Another  valuable  contribution  was  made  by  Stauffer  (1966) 
who  investigated  the  characteristics  of  diagrams 
representing  samples  of  various  sizes  taken  from  several 
model  distributions.  The  present  study  attempts  to  carry 
this  understanding  a  step  further  by  means  of  theoretical 
and  experimental  investigation  of  the  statistical  properties 
of  density  values  calculated  according  to  the  conventional 
definition  and  by  two  new  methods  described  here  for  the 
first  time. 

Conventional  methods  for  producing  contoured 
orientation  diagrams  are  reviewed  in  section  2.  After  a 
brief  statement  of  some  theoretical  principles  two  new 
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methods  are  introduced  in  section  3.  Some  theoretical 
results  are  presented  in  section  4.  The  new  methods  were 
compared  with  the  conventional  methods  experimentally,  and 
these  experiments  and  their  results  are  described  in  section 
5.  Section  6  considers  the  problem  of  estimating  population 
parameters  from  contoured  diagrams.  Section  7  summarizes 
the  chapter  and  its  conclusions. 

2.2  fie view  of  Contouring  Methods 

A  line  through  the  origin  in  three-dimensional  space 
intersects  the  unit  sphere  at  two  points.  A  two-dimensional 
point  diagram  is  obtained  by  projecting  any  half  of  the  unit 
sphere  onto  a  plane.  Two  methods  of  projection  are  commonly 
used  by  geologists  fox  this  purpose:  the  stereographic 
projection  and  Lambert's  egual— area  projection. 

Conventional  methods  of  contouring  point  density  are  based 
on  the  principle  that  if  the  centre  of  a  circle  of  constant 
radius  is  placed  at  different  locations  on  the  sphere,  the 
relative  density  of  points  at  each  location  is  proportional 
to  the  number  of  points  lying  inside  the  circle  at  that 
location.  The  manual  methods  employ  a  projection  on  which 
the  points  are  plotted  and  counted.  Since  all  projections 
involve  some  shape  distortion  these  methods  require  a 
compromise  between  approximating  the  circular  region  on  the 
sphere  and  being  quick  and  easy  to  use.  Stauffer  (1966) 
gave  the  following  summary. 
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'•Orientation  diagrams  containing  more  than  about 
100  points  are  usually  contoured  for  point 
density,  and  a  variety  of  counting  methods  for  use 
in  contouring  have  been  described  in  the 
literature;  these  are  outlined  below. 

"  (1)  Schmidt  Method 

The  number  of  points  inside  a  circle  (usually  1ft 
of  the  total  diagram  area)  are  counted  at  each 
intersection  of  a  squared-grid  superimposed  on  the 
poi.nt  diagram.  For  details  see  Billings  (1954 
p «.  113)  or  Turner  and  Weiss  (1963  p . 6  1 )  . 

"(2)  Free-Counter  Method 

A  suitable  interval  is  determined,  then  the 
counting  circle  is  moved  over  the  diagram  in  such 
a  way  that  it  always  contains  the  correct  number 
of  points  for  one  of  the  contour  values. 
Individual  contour  lines  are  drawn  as  the  locus  of 
the  center  of  the  moving  counting  circle  (see 
Turner  and  Weiss  1963  p.62) . 

"  (3)  Mellis  Circle  Method 

A  1ft  circle  is  placed  over  each  point  on  the 
diagram  and  the  circumference  traced  onto  an 
overlay.  Contour  values  are  determined  from  the 
number  of  circles  which  overlap  at  any  particular 
spot  (Mellis,  1942;  Turner  and  Weiss,  1963  p.62). 

"  (4)  Mellis  Variable-Circle  Method 

Mellis  (1942)  advocated  the  use  of  the 
stereographic  projection  for  contouring,  and 
devised  a  counting  method  in  which  the  radius  of 
the  counting  circle  used  is  increased  with 
distance  from  the  center  of  the  net;  this  ensures 
that  the  counting  circles  are  of  equal  area 
throughout. 

»  (5)  Variable-Ellipse  Method 

Several  authors  have  advocated  this  method  and  a 
good  description  is  given  by  Strand  (1945  p. 1 1 2 > . 
The  counting  cell  is  circular  at  the  center  of  the 
diagram  and  elliptical  at  the  periphery.  This 
ensures  that  equal  areas  are  counted  over  the 
whole  net,  but  it  applies  only  to  equal-area 
projections. 

"  (6)  Squared-Grid  Method 

It  is  also  possible  to  count  a  diagram  with  a 

simple  squared-grid -  A  counting  grid  designed 

for  use  on  a  20-cm  equal-area  net  contains  100 
squares  with  sides  of  0.7in  (a  0.7— in  square  is  1ft 
of  the  area  of  a  20-cm-diaraeter  circle) .  Partial 
cells  (rectangular  and  triangular)  on  opposite 
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sides  of  the  net  are  combined  and  each  pair 
ccunted  as  one  ceil." 

In  addition  to  these  graphical  methods,  several 
computer  programs  have  been  written  to  compute  point 
densities  using  the  same  underlying  definition-  For 
example,  Robinson  (1963)  described  a  program  that  calculated 
the  intersections  of  planes  and  counted  the  intersections 
falling  in  predetermined  non-overlapping  non-circular 
regions  of  egual  area.  The  density  values  were  plotted  by 
hand  on  a  projection  and  contoured-  Noble  and  Eberly  (1964) 
described  a  program  that  calculated  intersections  of  planes 
and  counted  the  intersections  falling  in  overlapping 
circular  regions  of  egual  area  centred  at  predetermined 
locations.  Again,  the  density  values  were  plotted  and 
contoured  by  hand.  Muecke  and  Charlesworth  (1966)  used  a 
program  for  counting  poles  of  planes  also  using  a  circle 
placed  at  predetermined  locations.  This  program  printed  the 
density  values  in  the  form  of  an  egual-area  projection  so 
that  only  the  contouring  had  to  be  done  by  hand. 

Other  programs  for  producing  diagrams  of  density 
distributions  on  the  sphere  have  been  described  by  Baker, 
Wenk  and  Christie  (1969),  Warner  (1969),  Spencer  and 
Clabaugh  (1967) ,  LaFountain  (1970)  ,  Starkey  (1969)  .  Yet 
another  program  is  described  in  Chapter  3  of  this  thesis. 
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2.3  Two  New  Contouring  Methods 


2.3.1  Nature  of  the  Contouring  Process 


All  the  methods  described  above  for  producing  contoured 
diagrams  of  point  density  imply  the  following  definition: 
point  density  at  a  location  on  the  sphere  is  the  proportion 
of  the  sample  inside  a  circle  of  specified  area  centred  at 
that  location.  This  may  be  written  as 

A 

[2.1  ]  d  =  t/na 


where  d  is  the  point  density,  t  is  the  number  of  points 
inside  the  circle,  n  is  the  number  of  points  in  the  sample 

and  a  is  the  area  of  the  circle.  If  t  is  written  as 

n 


[2.2] 

where  0^. 
location 
becomes 


£  w  (ei) ,  « (e)  =  Va  e  -  fic 

i«=l 

=  o  e  >  e 

c 

JL. 

is  the  distance  of  the  i  point  from  the  counting 
and  0  is  the  radius  of  the  circle,  then  [2.1] 


a  n 

[ 2.3  ]  d  =  (1/n)  £  w  (0  ) 

i=l 

which  has  the  form  of  a  well  known  density  estimator 
(Watson , 197 0;  Fukunaga  and  Hostetler,  1973). 


This  definition  of  point  density  leads  directly  to 
several  important  concepts. 

(1)  If  d  is  a  density  estimate,  there  is  implied  the 
concept  of  a  "true"  or  population  density  d  at  every  point 
on  the  sphere,  that  is,  there  is  a  density  function  for  the 
population.  The  surface  represented  by  the  contours  on  a 
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density  diagram  is  thus  an  estimate  of  the  population 
density  function. 

(2)  The  ''contouring1'  process  is  essentially  one  of 
smoothing  the  data,  since  density  estimation  using  [2.3]  is 
a  smoothing  operation  (Thompson,  1956;  Whittle,  1958; 
Watson,  1970).  The  function  w  is  called  the  weighting 
function,  and  the  degree  of  smoothing  is  controlled  by  the 
parameter  or  "effective  radius"  of  the  weighting  function 
(Thompson,  1956) . 

(3)  The  rectangular  weighting  function  given  in  [2.2] 
represents  only  a  special  case  of  the  density  estimator 

[2.3] ,  so  that  the  possibility  of  other  weighting  functions 
is  implied  (Watson,  1970). 

A 

(4)  The  usefulness  of  d  as  an  estimator  of  d  depends  on 

* 

the  probability  distribution  of  d. 

2.3.2  The  Conventional  Constant- Area  Method 

An  important  step  toward  understanding  the  statistical 
nature  of  the  conventional  density  value  d  defined  by  [2.1] 
was  taken  by  Kamb  (1959)  who  observed  that,  for  any 
population,  t  is  a  binomial  variable  with  mean  np  and 
variance  np(l-p),  where  p  is  the  proportion  of  the 
population  inside  the  counting  circle.  Kamb  noted  that  the 

coefficient  of  variation  v  of  t  given  by 

4  4 

[2.4]  v  =  {np  (1-p)  Y  /np  =  {(1-p)/np}2 
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is  reduced  by  increasing  the  area  a  of  the  counting  circle, 
since  this  increases  p  (Figure  4) .  Reducing  v  was 
important,  Kamb  argued,  in  order  to  avoid  values  of  t  that 
differed  greatly  from  np,  and  he  adopted  the  criterion  that 
v  should  not  exceed  one  third,  that  is, 

[2.5]  {(1“P)/np}T  ^  1/3 
which  gives 

[2.6]  p  >  9/(n  +  9)  . 

Since  Kamb  was  primarily  interested  in  detecting  evidence  of 
non- uniformity  of  the  population,  he  used  the  relationship 
[  2.  7  ]  p  =  a/2  it 

that  holds  for  a  uniform  population  to  obtain  the  following 
rule  for  determining  the  area  a: 

[2.8]  a/2TT  >  9/  (n  +  9)  . 

Since  the  mean  and  variance  of  t  for  a  uniform  population 
are  known  for  any  given  area  a  (because  p  is  known  for  all 
locations  on  the  sphere) ,  the  value  that  will  be  exceeded 
with  any  chosen  probability  can  be  determined.  Thus  the 
value  of  t  for  a  particular  counting  circle  provides  a  test 
of  the  hypothesis  that  the  population  is  uniform.  In  this 
way,  Kamb  suggested,  the  contoured  density  diagram  could 
provide  guantitative  statistical  conclusions. 

Two  points  should  be  noted  concerning  Kamb's  rule. 
First,  it  was  intended  as  a  means  for  detecting  very  weak 
preferred  orientations.  Second,  the  distribution  of  t  for  a 
particular  counting  circle  is  not  the  same  as  the 
distribution  of  t  .  the  largest  value  of  t  appearing  on  a 
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diagram.  When  many  counting  circles  are  considered 
simultaneously,  the  probability  that  a  given  value  of  t  will 
be  exceeded  in  at  least  one  of  the  circles  is  greater  than 
the  probability  that  the  value  will  be  exceeded  in  one 
particular  circle.  This  means  that  if,  say,  the  upper  5% 
point  of  the  distribution  of  t  is  chosen  as  a  critical  value 
and  preferred  orientation  is  inferred  whenever  a  value  in 
excess  of  this  critical  value  appears  on  a  diagram,  then  the 
level  of  significance  of  such  a  test  is  greater  than  5)fr, 
that  is,  more  than  5%  of  samples  drawn  from  a  uniform 
population  would  be  interpreted  as  having  preferred 
orientation.  The  actual  proportion  would  depend  on  the 
number,  size  and  positions  of  the  counting  circles,  and 
would  be  difficult  to  evaluate  other  than  empirically. 

In  this  study  the  unit  of  measurement  of  probability 
density  is  taken  as  the  expected  value  of  the  estimate  for  a 
uniform  population.  Since  the  area  of  the  unit  hemisphere 
is  2tt,  the  expected  proportion  of  points  in  unit  area  for  a 
uniform  population  is  1/2it,  so  that  the  standardized 
conventional  density  estimate  is 

A 

£2.9]  d  =  2iTt/na 

which  is  a  binomial  variable  with  mean  2it  p/a  and  standard 
deviation  (2rr/aJ  (P  ( 1-p)  /**} Note  that  the  weighting 
function  w  is  now 

w  (0)  =  2tT/a  e  -  ec 


c 


0 
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2-3.3  The  Fisher- Weighted  Method 

When  the  orientation  of  a  bedding  or  joint  surface  is 
measured,  the  measured  pole  differs  from  the  true  mean  pole 
of  the  surface  because  of  (a)  measurement  errors  and  (b) 
local  deviations  of  the  surface  from  its  mean  orientation 
(Cruden,  1968) .  The  deviation  of  an  observed  pole  from  the 
true  pole  is  well  described  by  a  probability  density 
function  proposed  by  Fisher  (1953)  (Cruden  and  Charlesworth, 
1966;  Cruden,  1968).  According  to  this  model  the 
probability  density  for  an  observed  pole  P  given  the  true 
pole  Q  is 

[2.10]  (k/4nsinh  k)  exp(k  cose  ) 

where  k  is  a  parameter  known  as  the  concentration  parameter 
and  e  is  the  angle  between  P  and  Q.  The  density  is  maximum 
in  the  direction  Q  and  is  symmetric  about  Q.  When  k  is 
large  the  distribution  is  tightly  clustered  about  Q,  while 
when  k  is  small  the  distribution  is  widely  dispersed.  The 
distribution  extends  over  the  sphere,  being  confined  to  the 
hemisphere  for  practical  purposes  only  when  k>3.  The 
distribution  is  discussed  more  fully  in  Chapter  3.  For 
repeated  measurements  of  geological  discontinuities  k  ranges 
from  about  25  for  very  irregular  surfaces  to  several  hundred 
for  nearly  planar  surfaces. 

Besides  the  probability  density  for  P  given  Q,  [2.10] 
also  gives  the  probability  density  for  Q  given  P.  Hence  the 
probability  density  for  a  true  pole  Q  corresponding  to  an 
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observed  pole  P  selected  randomly  from  a  sample  of  n 

observed  poles  P^  ,  P2,  .  .  .  ,  P^  is 

n 

[2-11]  (k/4  it  n  sinh  k)  Eexp(k  cos  9.) 

1=1  •** 

where  is  the  angle  between  Q  and  P^  and  k  is  the  same  for 
all  the  P^.  Given  a  set  of  observed  poles  and  an  empirical 
value  for  k,  [2-11]  can  be  evaluated  for  a  series  of 
locations  .  .  and  these  values  plotted  on  a 

projection  and  contoured-  This  empirical  probability 
density  surface  embodies  all  the  information  contained  in 
the  sample,  including  the  information  about  the  magnitude  of 
errors-  It  is  an  extension  of  the  point  diagram  to  the  case 
in  which  errors  are  considered,  and,  like  the  point  diagram, 
it  may  need  smoothing  before  it  is  a  useful  estimator  of  the 
population  density  function-  Smoothing  is  likely  to  be 
necessary  when  n  is  small  or  k  is  large-  In  fact,  as  k 
increases,  the  empirical  density  function  [2-11]  approaches 
a  function  which  is  zero  everywhere  except  at  the  sample 
points,  at  which  points  it  is  undefined,  that  is,  it 
approaches  a  point  diagram. 

A  convenient  way  of  smoothing  the  empirical  density 
function  [2-11]  is  to  reduce  k  below  its  empirical  value. 
Note  that  [2-11]  already  has  the  form  of  the  density 
estimator  [2.3]  where  the  weighting  function  w  is  Fisher's 
density  function  [2. 10].-  Since  [2-11]  is  a  normalized 
density  function,  its  expected  value  for  a  uniform 
population  is  the  uniform  density  1/2tt,  so  the  standardized 
density  estimate  is 
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a  n 

£2-12]  d  =  (k/2n  sinh  k)  Iexp(k  cose.). 

i-1  1 

The  constant-area  and  Fisher- weighted  estimators  belong 
to  a  recognized  class  of  density  estimators  referred  to  in 
the  statistical  literature  as  the  "Parzen"  class  of  density 
estimators  (Wegman,  1972). 

2-3-4  The  Constant-Proportion  Method 

If  Kamb's  rule  is  used  for  contouring  samples  from 
populations  with  strong  preferred*  orientations,  the 
coefficient  of  variation  of  t  will  be  far  from  the  reguired 
value  of  1/3  over  most  of  the  diagram,  since  over  most  of 
the  sphere  the  population  density  (and  therefore  p)  is 
either  much  smaller  or  much  larger  than  that  of  a  uniform 
population. 

Let  the  required  coefficient  of  variation  be  v  .  Then 

o 

from  [2-4]  the  required  value  pQ  of  p  is  given  by 

[2.13]  v0*  =  <1-p0)/np0 
which  gives 

[2.14]  Po  =  1/(nvQ2  ♦  1)  . 

If  no  assumptions  can  be  made  about  the  population  density 
function,  the  only  information  available  about  p  is  given  by 
the  proportion  t/n  which  is  in  fact  an  unbiased  estimator  of 
p.  So  we  adjust  the  area  a  of  the  counting  circle  until 
t/n=p  ,  and  compute  the  standardized  density  estimate  as 
before 


d  =  2tt  t/na  - 


■ 
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Note  that  whereas  for  the  constant-area  method  a  was 
constant  and  t  was  variable,  we  now  have  t  constant  and  a 
variable.  The  distribution  of  a  is  complicated  for 
non-uniform  populations. 

This  estimator  belongs  to  a  recognized  class  of  density 
estimators  referred  to  in  the  statistical  literature  as  the 
Hk-nearest-neighbour"  class  of  density  estimators  (Fukunaga 
and  Hostetler,  1973).  A  similar  technique  for  density 
estimation  in  Euclidean  spaces  using  non-overlapping  regions 
containing  equal  numbers  of  data  points  was  described  by 
Gessaman  (1970). 

2.4  Theoretical  Investigation  of  Contouring  Methods 

2.4.1  The  Constant- Area  Method 

Some  theoretical  results  will  be  obtained  for  the 
constant-area  density  estimator  so  that  these  can  be 
compared  with  the  empirical  results.  This  will  provide  a 
check  on  the  empirical  results  and  facilitate  their 
interpretation  for  the  other  density  estimators. 

Since  the  mean  of  the  density  estimator  [2.9]  is  2'np/a, 
£2.9]  is  an  unbiased  estimator  of  d  only  if 

2tt  p/a  =  d, 

that  is,  if  the  average  population  density  over  the  counting 
circle  is  equal  to  the  population  density  at  the  counting 


31 


location.  This  is  generally  not  true,  and  the  bias  of  the 
estimator  [2.9]  can  be  expressed  as 

[2.15]  b  -  log10  (2'TTp/ad)  . 

Since  from  [2.13] 

[2.16]  v*  =  (1-p)/np  =  (1/p  -  1)/n 

it  follows  that  v  is  inversely  related  to  p.  That  is,  for 
constant  population  density  (for  example,  at  one  counting 
location)  v  is  smaller  for  larger  counting  circles,  while 
for  constant  counting  circle  size  v  is  smaller  for  larger 
population  densities.  v  is  also  inversely  related  to  n,  so 
that  the  density  estimate  has  a  larger  coefficient  of 
variation  in  smaller  samples. 

b  depends  on  the  ratio  of  the  average  density  over  the 
counting  circle  to  the  population  density  at  the  centre  of 
the  counting  circle.  This  ratio  depends  on  the  shape  of  the 
population  density  function  inside  the  counting  circle.  If 
the  population  density  is  uniform  or  has  a  uniform  slope 
inside  the  counting  circle,  then  b  will  be  zero.  If,  on  the 
other  hand,  the  counting  circle  is  centred  on  a  maximum  of 
the  population  density  function,  the  average  density  must  be 
less  than  the  maximum  density,  so  that  b  will  be  negative. 
Similarly,  if  the  counting  circle  is  centred  on  a  minimum  of 
the  population  density  function  the  average  density  will  be 
greater  than  the  minimum  density,  so  b  would  be  positive. 
Thus,  if  the  population  is  a  single  Fisher  distribution,  we 
would  expect  negative  b  at  the  centre  (maximum)  of  the 
population,  zero  b  some  distance  from  the  centre,  and 
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probably  positive  b  in  the  peripheral  parts  of  the 
population.  We  would  further  expect  b  to  depart  from  zero 
more  for  larger  counting  circles,  especially  at  the  centre 
and  peripheral  parts  of  the  population. 

In  summary,  we  predict  that  as  counting  circle  size 
increases  at  one  counting  location,  precision  will  increase 
while  accuracy  decreases.  With  increasing  distance  from  the 
centre  of  a  density  maximum  (counting  circle  size  constant) , 
that  is,  decreasing  population  density,  precision  will 
decrease  while  accuracy  first  increases  (underestimating  the 
true  density)  and  then  decreases  (overestimating  the  true 
density) . 

The  Exact  Smoothed  Fisher  Peak  Density  -  Unimodal  Case 

If  a  Fisher  density  function  with  parameter  kp  is 
smoothed  using  the  constant-area  method  the  smoothed  density 
at  the  peak  in  standard  units  (that  is,  in  terms  of  the 
uniform  density)  is  the  average  probability  density  inside 
the  circle,  that  is 

[2.17]  ds  =  2trp/a 

where  p  is  the  probability  inside  the  circle  and  a  is  the 
area  of  the  circle.  From  Watson  and  Irving  (1957) 

[2.18]  p  =  1  -  exp  {kp  (cosec-1) } 

and  from  geometrical  considerations  we  know  that 

[2.19]  a/2tr  =  1  -  cos  0c 

so  that  the  smoothed  peak  density  can  be  written 
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[2-20]  d  =  (2- n/a)  £1  -  exp  (-ak  /2tt)  }  - 

s  p 

Exact  Smoothed  Fisher  Peak  Density  -  Multimodal  Case 

Suppose  a  multimodal  population  consists  of  a  mixture 
of  Fisher  distributions.  Let  the  proportion  of  the 
population  in  Fisher  distribution  number  1  with  parameter  k^ 
be  p^ .  Then  the  unsmoothed  peak  density  for  that  Fisher 
distribution  is  p,  k  . 

Suppose  this  multimodal  population  is  smoothed  using 
the  constant-area  method.  If  p  is  the  proportion  of  the 
Fisher  distribution  number  1  inside  the  circle,  then  the 
proportion  of  the  total  population  inside  the  circle  is 
p^  p  .  Thus  the  smoothed  peak  density  is  now 

ds*  =  2irPlPe/a 
or 

[2.21]  d s*  =  (2'rrp1/a)  (1  -  exp  (-ak^/2ir)  }  . 

Note  that  the  ratio  of  the  smoothed  to  unsmoothed  peak 
densities  is  the  same  as  in  the  unimodal  case. 

0* 
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2-4.2  The  Fisher- Weighted  Method 


The  Exact  Smoothed  Fisher  Peak  Density  -  Unimodal  Case 


If  a  Fisher  density  function  with  parameter  k^  is 


smoothed  using  a  Fisher  density  function  with  parameter  k 


w 


as  the  weighting  function,  the  smoothed  density  at  the  peak 

is  the  integral  over  the  sphere  of  the  product  of  the  two 

density  functions.  This  product  is 

(k  /4tt sinhk  J  exp  {k  cose}  (k  /4-TTsinhk  )exp{k  cose} 
p  p'  p  w  w  w 

=  (k  k  /16<n2sinhk  sinhk  )exp{(k  *k  )  cos 0}  . 

'  pi*  p  w'  r  1  p  w '  J 

Integrating  over  the  sphere  gives 

Ik  k  /(k  *k  )}exp(k  +k  )/(8Trsinhk  sinhk  )  . 

*  p  w  p  r  p  w'  '  p  w' 

If  we  assume  that  k  >5  and  k  >5  and  ignore  all  terms  in 

p  w 

exp{-kp}  and  expf-k^}  this  reduces  to 

(1/2TT)  CkplS,/(kp  +  kW)) 

or,  in  terms  of  the  uniform  density  1/2tt, 

[2-22]  df  =  ^t/^p+V  - 

Thus  the  ratio  of  the  smoothed  to  the  unsmoothed  peak 
densities  is 


k  /  (k  *k  ) 
vr  *  p  w' 


The  Exact  Smoothed  Fisher  Peak  Density  -  Multimodal  Case 

The  density  function  for  the  Fisher  distribution  number 
1  is  the  normalized  Fisher  distribution  reduced  by  the 
factor  p^,.  Thus  the  integral  for  the  smoothed  peak  density 
(ignoring  the  influence  of  the  other  Fisher  distributions) 
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is  changed  by  the  factor  p^ ;  hence  the  smoothed  peak  density 
is 

% 

[2-23]  df*  =  PllcplS>/(kp*kH)- 

Again  the  ratio  of  the  smoothed  to  the  unsmoothed  peak 
densities  is  the  same  as  in  the  unimodal  case. 

2.4 .3  The  Constant- Proportion  Method 

The  Exact  Smoothed  Fisher  Peak  Density  -  Unimodal  Case 

If  a  Fisher  distribution  with  parameter  k  is  smoothed 

P 

using  the  constant-proportion  method,  the  smoothed  peak 
density  is  again  2iTp/a  where  a  is  the  area  of  the  circle 
that  contains  the  proportion  p  of  the  population.  In  this 
case  we  express  this  in  terms  of  p  rather  than  in  terms  of 
a..  From  [2>.  18]  and  [2.19]  above  we  have 

a  =  211(1-003  0  ) 

and 

cos  0  =  1  ♦  ln(1-p)/k 

c  p 

so  that  the  smoothed  peak  density  is 

\  =  2np/ {2ir  (-In  (1-p) /kp)  } 
or 

[2.24]  dy  =  -pkp/ln  (1-p)  . 

Note  that  the  ratio  of  the  smoothed  to  the  unsmoothed  peak 
densities  in  this  case  is 

-p/ln  (1-p) 

which  is  independent  of  kp. 
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The  Exact  Smoothed  Fisher  Peak  Density  -  Multimodal  Case 

This  method  requires  that  the  proportion  of  the  total 

population  in  the  circle  be  pQ ,  that  is, 

d  *  =  2<ttp  /a 
v  o  o 

where  a  is  the  area  of  the  circle  that  fulfills  the  above 
o 

condition.  Now  P0~PiPc'  so  *hat  Pc^o^l*  Hence  from 
[2.18]  and  [2.19]  above 

a  =  -2 Trln  (1  - 

so  that 

[2.25]  dy*  =  -pokp/ln(1  -  P0/Pt). 

Note  that  for  this  method  the  ratio  of  the  smoothed  to 
unsmoothed  peak  densities  is  not  the  same  as  in  the  unimodal 
case;  however,  the  ratio  is  still  independent  of  kp. 

2.5  Experimental  Investigation  of  Contouring  Methods 

2.5.1  The  Experiments 

Let  (9,0)  he  spherical  coordinates  related  to 
rectangular  coordinates  (x,y,z)  by 

[2.26]  x=sin6cos 0 

[2.27]  y-sinesin 0 

[2.28]  z=cos6. 

Random  samples  from  a  Fisher  distribution  were  generated 

using  the  algorithm  given  by  Stauffer  (1966) : 

=  (1/k)  log  { (1-r)  exp  (k)  +  r  exp(-k)}. 


[2.29] 


cos  0 
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Replacing  r  by  numbers  drawn  randomly  from  a  uniform 
distribution  on  the  interval  (0,1)  and  combining  the 
resulting  values  of  0  with  values  of  0  drawn  from  a  uniform 
distribution  on  (0,2tt),  will  give  a  series  of  points  (0,0) 
whose  distribution  is  the  Fisher  distribution  with  its  polar 
axis  the  z-axis.  This  was  accomplished  using  the  program 
SAMFLEGEN. 

For  each  set  of  conditions,  that  is,  given  values  of 
the  population  concentration  parameter  and  the  sample 

size  n,  50  samples  were  generated.  Using  a  series  of 
counting  locations  at  distances  y  from  the  centre  of  the 
population  of  0,  5,  10,  .  .  .  degrees  up  to  25  or  35 

degrees  depending  on  the  shape  of  the  population,  the 
population  density  function  was  estimated  at  each  counting 
location  using  the  three  different  estimators  with  various 
parameter  values.  This  procedure  was  followed  using  a 
population  parameter  k  of  50  and  a  sample  size  n  of  100. 
The  experiment  was  repeated  using  the  same  population  and 
two  other  sample  sizes,  n=5 0  and  n=200,  and  again  using 

n=1 00  and  k  =100. 

P 

The  estimators  used  were  the  constant-area  estimator 

with  a/2n  =1%,  and  in  some  cases  with  a/2TT  =2%,  5%  and  10%; 

the  constant-area  estimator  with  the  counting-circle  size 

determined  from  Kamb*s  rule;  the  constant— proportion 

estimator  with  v  egual  to  1/3,  1/5,  and  in  some  cases  1/7, 

o 

1/10  and  1/20;  and  the  Fisher-weighted  estimator  with  the 
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parameter  k  equal  to  25,  50,  100,  242,  and  in  some  cases 
w 

500. 

For  each  experiment,  each  estimator  type  and 
value,  and  each  counting  location,  the  50  density 

A  A  A 

d.,  d  ,  d  were  used  to  compute  the  standard 

I  d 

of  the  estimates 

t  {  Ed^  -  (  Ed1)*/50}/49  j 

the  mean  of  the  estimates 

A 

Edi/50 

the  coefficient  of  variation  of  the  estimates 

A  A  A  A 

[2.30]  v  =  [  {  I  d  -  (  Edi)2/50}/49]  (50)/Ldi 

A 

and  an  estimate  b  of  b  given  by 

A  A 

[2.31]  b  =  lo^0(Edi/50d)  . 

d  is  found  for  each  population  and  each  counting  location  by 
evaluating  the  density  function  [2.10]  for  k=k^  and  0=0,  5, 

.  .  .  degrees. 

2.5.2  Results  and  Discussion 

Results  for  the  experiment  n=100,  kp  =  50  will  be 
discussed  before  comparisons  are  made  with  other 
experiments.  The  population  density  function 

{ k/  ( 4 tt  sinh  k)  }  exp  {k  cos  0  } 

is  illustrated  in  Figure  5.  It  can  be  seen  that  the  density 
decreases  to  the  uniform  density  (1/2tt)  at  about  0=23 
degrees . 


parameter 

estimates 

deviation 


The  points  representing  one  estimator  type  and  one 
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parameter  (different  counting  locations)  lie  in  a  more  or 
less  smooth  curve,  the  properties  changing  gradually  from 
the  centre  of  the  population  to  the  periphery  (Figures  6,  7 
and  8) .  Each  such  curve  will  be  referred  to  as  a  "parameter 
curve".  The  points  representing  one  estimator  type  and  one 
location  (different  parameters)  also  lie  on  a  smooth  curve, 
the  properties  changing  gradually  as  the  parameter  changes 
(Figures  9,  10  and  11).  Each  such  curve  will  be  referred  to 
as  a  "location  curve". 

We  compare  the  empirical  results  for  the  constant-area 
estimator  with  the  theoretical  results  for  that  estimator. 
The  location  curves  (Figure  9)  show  that  as  counting  circle 
size  increases,  coefficient  of  variation  decreases  and  bias 
increases.  Both  relationships  are  in  accord  with  the 
theoretical  results  for  this  estimator.  The  parameter 
curves  for  the  same  estimator  (Figure  6)  show  that  with 
increasing  distance  from  the  centre  of  the  population, 
coefficient  of  variation  increases  while  bias  changes  from 
negative  to  positive.  These  results  were  also  predicted. 
Notice  in  particular  how  the  coefficient  of  variation  of  the 
constant-area  estimator  with  a/2TT=1%  becomes  extremely  large 
with  decreasing  population  density,  while  its  bias  remains 
small.  In  contrast,  the  coefficient  of  variation  of  the 
estimator  with  a/2rT=8-3$  (Kamb's  rule)  remains  very  small 
while  its  bias  changes  from  strongly  negative  to  strongly 
positive  with  increasing  y  .  The  parameter  curves  for  the 
Fisher- weighted  estimator  (Figure  8)  are  similar  to  those 
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for  the  constant-area  estimator  (Figure  6) ,.  This  means  that 
similar  combinations  of  properties  (at  different  locations) 
result  from  large  and  small  k as  are  obtained  using  the 
constant-area  estimator  with  respectively  small  and  large 
counting  circles.  However,  the  Fisher- weighted  location 
curves  for  large  y  lie  slightly  closer  to  the  origin  than 
the  corresponding  curves  for  the  constant- area  estimator 
(Figures  12  and  13).  This  difference  disappears  for  y =15 
degrees  (Figure  14) ,  and  there  is  no  consistent  difference 
for  smaller  y  (Figures  15,  16  and  17) .  Thus,  in  the 
peripheral  parts  of  the  population,  the  Fisher-weighted 
estimator  provides  a  slightly  more  advantageous  compromise 
between  coefficient  of  variation  and  bias  than  is  possible 
with  the  constant- area  estimator. 

The  parameter  curves  for  the  constant-proportion 
estimator  (Figure  7)  are  quite  different  from  those  of 
either  of  the  other  two  estimators  (Figures  6  and  8),.  This 
estimator  combines  the  characteristics  of  a  small-circle 
constant-area  estimator  at  high  population  densities  with 
those  of  a  large-circle  constant-area  estimator  at  low 
population  densities.  Thus  it  avoids  the  large  coefficients 
of  variation  exhibited  by  the  small-circle  constant-area 
estimators  at  low  population  densities  without  incurring 
inordinately  large  smoothing  effect  and  hence  negative  bias 
characteristic  of  the  large-circle  constant-area  estimators 
at  high  population  densities.  The  location  curves  for  this 
estimator  lie  very  close  to  those  for  the  other  two 
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estimators  (Figures  12  to  17). 

Although  the  constant-area  estimator  is  designed  to 
have  a  constant  coefficient  of  variation,  the  parameter 
curves  for  this  estimator  (Figure  7)  show  that  the 
coefficient  of  variation  is  not  actually  constant.  The 
reasons  for  this  are  as  follows.  The  random  variable  d  is 
given  by 

A 

d  =  2<rrt/na. 

Now  t  is  a  binomial  variable  with  mean  and  variance 


depending 

on  n  and  p. 

But 

p  changes  from  sample 

to 

sample 

(because  the  area  a  of 

the 

counting  circle  changes 

from 

sample  to 

sample) . 

That 

is,  both  a  and  p 

are 

also 

variables. 

Thus  the 

theoretical  distribution 

of 

A 

d  is 

complicated 

,  especially 

since 

the  relationship  between 

a  and 

p  is  complicated.  p  is  in  fact  the  integral  of  the 
population  density  function  over  the  counting  circle;  the 
way  that  this  changes  with  a  depends  on  the  value  of  the 
function  at  the  counting  location  and  the  shape  of  the 
function  inside  the  counting  circle. 

It  appears  that  there  is  a  limit  to  how  small  v  can  be 

made,  especially  at  the  centre  of  the  population  where  v 

appears  to  have  a  lower  limit  of  about  0.16  for  k  =50  and 

P 

n  =  1 00,. 

Comparison  of  the  results  for  k  =50,  n=100  with  the 

P 

results  for  other  sample  sizes  reveals  that  the  general 
relationships  described  above  still  hold.  The  location 
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carves  lie  closer  to  the  origin  when  n=200  and  farther  from 

the  origin  when  n=50  (figures  18,  19  and  20) ,  confirming  the 

intuitive  expectation  that  more  advantageous  combinations  of 

coefficient  of  variation  and  bias  are  possible  with  larger 

samples.  At  the  centre  of  the  population  the  effect  of 

increasing  n  on  the  ccnstant-area  estimator  and 

Fisher-weighted  estimator  with  given  parameters  is  to 

increase  precision  without  changing  the  accuracy  (Figures  18 

and  20) ,  while  for  the  constant-proportion  estimator 

increasing  n  increases  both  accuracy  and  precision  (Figure 

19)-  This  is  because  for  the  constant-area  estimator  and 

the  Fisher- weighted  estimator  the  degree  of  smoothing  and 

therefore  the  accuracy  are  fixed  because  the  parameter  of 

the  weighting  function  is  fixed,  whereas  the  degree  of 

smoothing  for  the  constant-proportion  estimator  decreases  as 

n  increases  as  a  result  of  the  imposed  relationship  between 

its  parameter  v  and  n. 

o 

Figure  18B  showing  how  the  properties  of  the 
constant-area  estimator  at  y=25  degrees  change  with  sample 
size  at  first  sight  appears  to  indicate  that  as  sample  size 
increases  the  mean  of  the  estimator  decreases  and  then 
increases  again.  The  explanation  of  this  figure  is  as 

follows.  Each  estimate  of  the  density  can  be  written  as 
[2.32]  (2  -TT/a)  (  /50n) 

*th 

where  t^  is  the  number  of  points  out  of  the  i  sample  that 
fall  inside  the  counting  circle.  This  estimate  is  binomial, 
mean  2iTp/a,  standard  deviation  (2rT/a)  {p  ( 1-p) /50n) 2  .  Using 
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a/2<n=1X#  n=50,  100  and  200,  and  assuming  p=0.008  (based  on 
the  estimated  densities  of  0.9,  0.6  and  0.8;  see  Appendix 
3) ,  approximate  standard  deviations  of  the  means  for  the 
three  estimates  of  the  density  for  a/2^1%  were  computed. 
These  standard  deviations  are  0.20,  0.14  and  0.10  for  n=50, 
n=100  and  n  =  200  respectively.  The  intervals  formed  by  the 
estimates  plus  and  minus  three  standard  deviations, 
transformed  by  dividing  by  the  true  density  and  taking  the 
base  10  logarithm,  were  drawn  on  Figure  18B.  At  once  it  is 
seen  that  the  changes  in  the  estimated  density  as  n 
increases  are  well  within  experimental  error,  and  therefore 
not  significant.  The  curves  for  a/2rr-2%  and  a/2n=5%  and  the 
curves  for  the  Fisher-weighted  estimator  in  Figure  20B 
follow  the  same  pattern  because  all  the  estimates  were 
computed  from  the  same  random  samples  for  any  given  sample 
size.  That  is,  because  the  set  of  50  samples  for  n=50,  say, 
happened  to  contain  more  than  the  expected  number  of  points 
in  the  vicinity  of  the  counting  location  at  y=25  degrees, 
all  of  the  estimates  from  that  counting  location  for  n=50 
reflect  this. 

Figures  21  and  22  show  the  effect  at  the  centre  of  the 
population  of  changing  the  population  parameter  k^.  The 

estimators  with  fixed  weighting  functions  show  an  increase 
in  precision  and  decrease  in  accuracy  with  increasing  k^. 
The  decrease  in  accuracy  is  due  to  the  fact  that  the  sharper 
population  peak  for  kp=100  is  smoothed  relatively  more  than 
the  flatter  population  peak  for  kp=50  by  the 
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fixed- weighting-function  estimators-  However,  the  change  in 

accuracy  is  very  slight  for  the  constant- proportion 

estimator  (Figure  22).  This  implies  that  the  ratio  of  the 

mean  of  the  estimator  to  the  true  peak  density  of  the 

population  is  independent  of  the  true  peak  density  -  a 

result  we  have  already  obtained  theoretically-  This 

suggests  that  the  estimator  might  be  used  to  estimate  k^ 

when  k  is  unknown.  Figure  19  confirms,  however,  that  this 
P 

ratio  is  not  independent  of  n- 


2-6  Use  of  the  Orientation  Diagram 

2-6.1  The  Modelling  Process 

The  model-building  process  is  explained  by,  for 
example.  Box  and  Jenkins  (1970)  in  the  context  of 
time-series  analysis.  Their  illustration  is  reproduced  in 
Figure  23-  The  essential  steps  in  the  model- building 
process  are  selection  of  a  model  type,  estimation  of 
parameters,  and  diagnostic  checking  to  decide  whether  the 
model  is  adequate.  In  modelling  fabrics,  the  orientation 
diagram  provides  a  basis  for  selection  of  a  model  type  (that 
is,  the  number  and  type  of  fabric  elements  present) ,  and  a 
means  for  estimating  parameters,  especially  location 
pdCdniGtcrs.  It  can  also  be  used  to  estimate  concentration 
parameters,  and  this  function  is  especially  important  if  the 
fabric  elements  cannot  be  satisfactorily  isolated  by 
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subdividing  the  sample.  Methods  for  checking  the  adequacy 
of  the  preliminary  model  obtained  from  the  diagram  are  still 
lacking,  and  statistically  sound  models  for  fabric  data 
cannot  be  constructed  until  such  techniques  become 
available,. 

2.6.2  Estimation  of  Fisher  Concentration  Parameters 

Here  we  concentrate  on  the  role  of  the  orientation 
diagram  as  a  parameter  estimation  tool;  we  suggest  that  the 
information  obtained  about  the  different  density  estimators 
in  this  study  makes  it  possible  to  obtain  estimates  of 
concentration  parameters  of  Fisher-distributed  point 
clusters  from  orientation  diagrams  making  maximum  use  of  the 
information  available. 

The  problem  and  possible  solutions  may  be  explained  as 
follows.  For  a  population  whose  density  function  is  a 
single  Fisher  distribution  the  concentration  parameter  may 
be  related  in  a  simple  way  to  the  peak  density  (a  measure  of 
size)  or  to  the  half-maximum  radius  (the  distance  from  the 
peak  at  which  the  density  is  half  the  peak  density;  a 
measure  of  shape) . 

Consider  now  a  multimodal  population  whose  density 
function  is  the  sum  of  several  Fisher  distributions  which, 
since  the  whole  density  function  integrates  to  unity,  are 
now  scaled  down,  each  by  a  different  factor  depending  on  the 
proportion  of  the  population  lying  in  each  point  cluster. 
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For  each  point  cluster,  the  relationship  between 
concentration  parameter  and  peak  density  is  now  complicated 
by  the  addition  of  the  scaling  factor.  However,  note  that 
the  half-maximum  radius  is  not  changed  by  scaling. 

Finally,  since  the  empirical  density  function  (the 
density  diagram)  is  produced  by  a  smoothing  operation,  we 
must  consider  the  effect  of  this  smoothing.  Its  effect  on 
the  peak  density  is  known  exactly  from  the  equations  derived 
in  section  2.4.  Its  effect  on  the  measure  of  shape  is 
unknown,  although  if  it  is  assumed  that  the  smoothed  Fisher 
distribution  has  itself  the  shape  of  a  Fisher  distribution, 
then  the  effect  of  smoothing  on  shape  may  be  inferred  from 
the  known  effect  on  peak  density;  this  assumption  remains  to 
be  verified,  however. 

Thus  the  empirical  density  function  for  a  particular 

mode  represents  a  Fisher  distribution  with  unknown  parameter 

k  ,  not  only  smoothed  but  also  scaled  down  by  an  unknown 
P 

factor  p^ -  Two  possible  ways  of  approaching  the  problem  of 
determining  the  unknown  parameter  k^  are  suggested. 

(1)  The  relative  proportions  of  a  population  in 
different  regions  of  the  sphere  are  estimated  by  the 
relative  numbers  of  sample  points  in  those  regions.  Thus, 
once  the  ranges  of  the  different  Fisher  distributions  have 
been  estimated  from  a  contoured  diagram,  then  the  proportion 
of  the  population  in  a  particular  point  cluster  can  be 
determined  by  counting  points  on  a  point  diagram. 


In  the 
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case  of  large  samples  it  may  be  more  feasible  to  estimate 

this  proportion  from  the  contoured  diagram  itself.  This  can 

be  done  by  either  (a)  measuring  areas  enclosed  by  contours 
with  a  planimeter,  multiplying  by  appropriate  density  values 
and  summing,  or  (b)  simply  summing  the  density  values  on  the 
diagram,  provided  they  are  uniformly  spaced.  Once  the 

proportion  p^  has  been  estimated,  the  concentration 
parameter  of  the  Fisher  distribution  can  be  determined  from 
the  peak  value  on  the  diagram  using  the  relationships 

[2.21],  [2.23]  or  [2.25]. 

(2)  A  different  way  of  obtaining  the  unsealed  smoothed 
peak  density  uses  only  the  mode  or  peak  being  estimated,  not 
involving  the  rest  of  the  diagram  at  all.  It  depends  on  the 
assumption  that  the  smoothed  Fisher  distribution  has  itself 
the  shape  of  a  Fisher  distribution-  In  other  words,  it  is 
assumed  that  smoothing  a  Fisher  distribution  simply  changes 
it  into  another  Fisher  distribution  with  smaller  parameter* 

This  method  is  based  also  on  the  observation  that  the 
radius  at  which  a  Fisher  density  function  has  half  the  peak 
density  depends  only  on  k  and  is  not  changed  by  scaling. 
The  relationship  is,  for  k>5, 

k  =  (ln0.5)/ (cose^  -  1) 

2 

where  k  is  the  parameter  of  the  distribution  and  e*  is  the 

2 

half-maximum  radius.  That  is,  the  "half- maximum  radius"  of 
a  scaled  Fisher  distribution  provides  an  immediate  solution 
for  its  concentration  parameter,  regardless  of  the  scaling. 
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Thus,  assuming  that  the  smoothed  distribution  has  the  shape 
of  a  Fisher  distribution,  the  half-maximum  radius  reveals 
the  parameter  of  the  smoothed  distribution;  this  is  then 
translated  into  the  smoothed  peak  density,  which  is  related 
to  the  concentration  parameter  of  the  unsmoothed  Fisher 
distribution  in  a  known  way  for  a  given  estimator- 

2.6.3  Optimization  of  Density  Estimators 

Optimization  of  density  estimators  (or  smoothing 

methods)  has  been  discussed  in  various  contexts.  For 
example,  Fukunaga  and  Hostetler  (1973)  have  considered  the 
optimization  of  constant-proportion  estimators. 

Optimization  of  estimators  of  the  constant-area  and 
Fisher-weighted  type  has  been  studied  by  Watson  and 
Leadbetter  (1962),  Cacoullos  (1966)  and  Epanechnikov  (1969). 
Most  workers  have  used  as  an  optimization  criterion 

minimization  of  the  mean  integrated  squared  error  (Whittle, 
1958;  Elkins,  1968;  Fukunaga  and  Hostetler,  1973).  This  is 
the  integral  over  the  domain  of  the  distribution  of  the 
local  mean  squared  error,  which  is  the  sum  of  the  variance 
of  the  estimator  and  the  square  of  the  bias,  where  bias  is 
the  difference  between  the  true  density  and  the  mean  of  the 

estimator. 

The  problem  with  this  approach  is  that  the  estimator 
that  minimizes  the  mean  integrated  squared  error  depends  on 
the  nature  of  the  distribution  being  estimated,  and  the 
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rules  for  optimizing  the  estimator  can  be  defined  only  for 

certain  classes  of  distributions.  In  any  case,  for  our 

purposes  it  is  not  useful  to  mix  variance  and  bias,  where 

bias  measures  deviation  from  the  true  density;  as  long  as  we 

can  estimate  the  smoothed  density  we  can  relate  this  to  the 

true  density.  Some  empirical  optimization  criteria  have 

been  suggested  for  the  constant-proportion  estimators,  for 

example,  Loftsgaarden  and  Quesenberry  (1965)  indicated  that 

JL 

a  proportion  of  n  2  gave  good  results. 

Thompson  (1956) ,  in  a  discussion  of  optimum  smoothing 
of  two-dimensional  fields,  pointed  out  that  the  optimum 
degree  of  smoothing  depends  on  the  ratio  of  the  scales  of 
"signal11  and  "noise".  (In  the  case  of  estimating  a  density 
function,  the  "signal"  is  the  true  density  function  and  the 
"noise"  is  the  random  variation  in  the  empirical  density 
function  due  to  the  finite  size  of  the  sample.)  For  a  true 
density  function  consisting  of  a  mixture  of  Fisher 
distributions,  the  scale  of  the  "signal"  may  be  thought  of 
as  the  distance  between  the  centres  of  the  Fisher 
distributions,  while  the  scale  of  the  "noise"  depends  on  the 
density  of  sample  points.  Thus  the  scale  of  the  "noise" 
varies  over  the  sphere,  suggesting  that  the  degree  of 
smoothing  (that  is,  the  effective  radius  of  the  smoothing 
function)  should  be  varied  according  to  the  density  of 
sample  points,  as  it  is  in  the  constant— proportion  method. 

In  the  geological  literature,  in  connection  with 
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contoured  orientation  diagrams,  some  rules  have  been 
suggested  for  optimizing  the  constant-area  estimator.  Flinn 
(1958)  recommended  the  rule  a/2TT=100/n.  Starkey  (1975)  has 
reiterated  this  suggestion.  He  have  already  described 
Kamb's  rule  for  nearly  uniform  populations. 

An  optimization  criterion  must  be  formulated  with 
reference  to  a  specific  objective.  The  first  function  of 
the  orientation  diagram  is  to  suggest  the  number  of  fabric 
elements  present.  Now  a  diagram  prepared  from  a  sample  of  n 
points  may  show  any  number  of  maxima  from  0  to  n  inclusive 
depending  on  the  degree  of  smoothing;  in  the  absence  of  any 
prior  knowledge  of  the  population,  no  particular  number  of 
maxima  is  any  more  likely  to  be  correct  than  any  other.  It 
is  suggested  that  the  greatest  amount  of  information  is 
available  from  a  series  of  diagrams  using  different  degrees 
of  smoothing.  Consideration  of  the  shapes  of  the  various 
peaks  of  the  density  function  at  different  degrees  of 
smoothing  in  conjunction  with  an  assumption  about  the  shapes 
likely  to  be  found  in  the  population,  for  example,  Fisher 
distributions,  can  then  lead  to  selection  of  a  tentative 
model  type.  Whether  any  type  of  estimator  is  "better"  in 
any  sense  than  the  others  for  this  purpose  is  not  apparent 
from  the  data  available. 

The  second  function  of  the  orientation  diagram  in  the 
modelling  process  is  to  provide  estimates  of  parameters. 
For  determining  location  or  peak  density  of  a  point  cluster 
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we  reguire  an  estimator  that  combines  an  acceptable 

coefficient  of  variation  at  the  peak  with  the  smallest 
possible  effective  radius,  so  that  the  distorting  influence 
of  neighbouring  point  clusters  is  as  small  as  possible.  If 
the  degree  of  underestimation  of  the  peak  density  of  a 
unimodal  population  is  taken  as  a  measure  of  the  effective 
radius,  the  fact  that  the  location  curves  at  the  population 
peak  for  the  constant-area  and  Fisher-weighted  estimators 
are  essentially  identical  may  be  taken  as  indicating  that 
these  two  estimators  are  equally  good  for  this  purpose. 
Since  the  constant- proportion  estimator  cannot  be 

characterized  by  a  constant  effective  radius  that  can  be 
extrapolated  to  multimodal  situations,  it  is  not  apparent 
from  the  available  data  how  it  should  be  regarded  in  this 
context. 

The  amount  of  smoothing  to  be  used  in  producing  an 
orientation  diagram  should  perhaps  depend  in  part  on  the 
precision  of  the  observations.  The  smoothing  could  then  be 
thought  of  as  being  of  two  kinds:  first,  smoothing  in  order 
to  represent  the  amount  of  uncertainty  in  the  data,  and, 
second,  additional  smoothing  (if  required)  in  order  to 
estimate  the  population.  Note  that  the  uncertainty  in  the 
data  refers  to  all  sources  of  error  whose  scale  is  smaller 
than  that  of  the  investigation.  For  example,  suppose  the 
orientation  of  a  joint  surface  is  measured.  That 
measurement  can  be  used  to  represent  (a)  the  orientation  of 
that  part  of  the  joint  surface  with  which  the  measuring 
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device  was  in  contact,  (b)  the  orientation  of  the  entire 
joint  surface,  or  the  orientation  of  a  joint  set  (c)  in  a 
small  part  of  an  outcrop,  (d)  over  a  whole  outcrop,  or  (e) 
over  a  whole  region.  In  all  these  cases,  the  error  in  the 
measurement  includes  the  error  in  reading  the  scale  of  the 
instrument,  and  the  error  in  aligning  the  instrument  with 
that  part  of  the  joint  surface  with  which  it  was  in  contact. 
In  case  (b)  an  additional  error  is  the  deviation  of  the 
joint  surface  at  the  point  of  contact  from  the  mean 
orientation  of  the  joint  surface.  In  cases  (c)  ,  (d)  and  (e) 
a  fourth  error  that  must  be  recognized  is  the  deviation  of 
that  particular  joint  from  the  mean  of  the  joint  set  in  the 
small  part  of  the  outcrop,  the  whole  outcrop,  or  the  region 
(assuming  such  a  mean  exists) .  The  probable  size  of  this 
error  increases  with  the  size  of  the  area  being  represented. 


2.7  Summary  and  Conclusions 

Conventional  methods  of  producing  contoured  orientation 

diagrams  may  be  seen  to  correspond  to  a  special  case  of  the 

well-kncwn  density  estimator 

*  n 

d  =  (1/n)  L  Me.) 

i-1  1  ^ 

where  n  is  the  sample  size,  6^  is  the  distance  of  the  i 
point  from  the  counting  location  and  w  is  a  weighting 
function.  The  special  case  is  that  in  which  the  weighting 
function  w  is  the  rectangular  function 
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w  (e )  =  i/a  e  <  e 

c 

-  o  e  >  e 

c 

where  a  is  the  area  of  the  counting  circle  and  0  is  the 

c 

radius  of  the  counting  circle.  The  conventional  methods  are 
collectively  referred  to  as  the  constant-area  method. 

Kamb  (1959)  suggested  that  the  area  of  the  counting 
circle  should  be  chosen  so  that  the  coefficient  of  variation 
of  the  density  estimate  does  not  exceed  one  third.  This 
requires  that  a  specified  proportion  of  the  population  lie 
within  the  counting  circle,  a  condition  which  can  be 
achieved  exactly  only  for  uniform  populations.  It  is  here 
suggested  that  this  condition  can  be  approximated  for  any 
population  by  choosing  the  size  of  the  counting  circle  at 
each  counting  location  so  that  the  specified  proportion  of 
the  sample  lies  within  the  counting  circle.  This  is  called 
the  constant-proportion  method. 

Replacing  the  square  weighting  function  by  Fisher's 
probability  density  function  provides  a  density  estimate 
that  is  algebraically  identical  to  the  result  of 
incorporating  errors  that  are  distributed  about  their  mean 
according  to  Fisher's  distribution.  This  is  called  the 
Fisher- weighted  method. 

Theoretical  investigation  of  the  three  methods  for 
unimcdal  Fisher— distributed  populations  yields  a 
relationship  between  the  parameter  of  the  estimator,  the 
true  p e aic  density  of  the  population  and  the  smoothed  peax 
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density  (mean  of  the  estimator)  for  each  estimator  type. 
This  permits  the  true  peak  density  of  a  unimodal  population 
to  be  determined  from  the  empirical  peak  density.  For 
populations  consisting  of  a  mixture  of  Fisher  distributions 
a  fourth  variable  is  added  to  each  equation:  the  proportion 
of  the  population  in  a  particular  point  cluster.  In  this 
case,  an  estimate  of  this  proportion  is  required  as  well  as 
the  empirical  peak  density. 

Experimental  investigation  of  the  three  methods  using 
unimodal  populations  reveals  that  the  form  of  the  weighting 
function  is  less  important  in  determining  the  properties  of 
the  estimator  than  whether  the  parameter  of  the  weighting 
function  is  determined  a  priori  or  a  posteriori  at  a 
particular  counting  location.  Thus  the  properties  of  the 
constant-area  estimator  and  the  Fisher- weighted  estimator 
tend  to  change  in  a  similar  manner  with  increasing  distance 
from  the  population  peak  while  those  of  the 
constant-proportion  estimator  change  in  a  different  way. 

The  process  of  inferring  the  subfabric  for  a  particular 
fabric  element  from  an  orientation  diagram  is  seen  as  a 
model-building  process  consisting  of  model-selection, 
parameter-estimation,  and  adequacy- testing  steps.  While  the 
orientation  diagram  is  useful  for  model  selection  and 
parameter  estimation,  testing  procedures  are  still  lacking. 
The  modelling  process  is  thus  incomplete,  and  statistically 
sound  models  cannot  be  obtained  from  the  orientation  diagram 
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alone. 

For  each  of  the  estimator  types  studied  equations  have 
been  derived  relating  the  smoothed  peak  density  of  a 
Fisher-distributed  point  cluster  to  the  unsmoothed  peak 
density  and  hence  to  the  concentration  parameter.  For 
multimodal  populations,  an  additional  complication  is  the 
scaling  that  results  from  calculating  the  density  estimates 
using  the  total  sample  size  rather  than  the  number  of  points 
in  one  point  cluster.  Two  ways  of  dealing  with  this  scaling 
are  suggested:  (a)  determine  the  scaling  factor  by  counting 
or  summing  over  the  range  of  the  point  cluster,  and  then 
"unscale"  the  peak  being  estimated,  and  (b)  ignore  the 
scaling  and  obtain  the  unsealed  peak  density  by  means  of  a 
measure  of  shape  which  is  a  function  of  the  unsealed  peak 
density  but  is  independent  of  scaling.  This  requires  the 
assumption  that  the  smoothed  Fisher  distribution  has  itself 
the  shape  of  a  Fisher  distribution.  This  second  method  may 
have  an  advantage  when  distributions  overlap,  since  the 
half-maximum  radius  can  be  measured  using  those  parts  of  the 
distribution  that  are  free  from  interference. 

Various  rules  and  optimization  criteria  that  have  been 
suggested  for  determining  the  degree  of  smoothing  to  be 
applied  to  the  data  either  are  arbitrary  or  depend  on  the 
nature  of  the  unknown  population.  For  the  purpose  of 
model-type  selection,  no  criterion  can  be  defended  for 
choosing  one  degree  of  smoothing  over  another. 
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fabric  elements  may  be  most  accurately  represented  by 
different  degrees  of  smoothing.  It  is  suggested  that  the 
procedure  is  best  performed  using  a  series  of  diagrams 
produced  by  various  degrees  of  smoothing.  There  is  no 
evidence  that  any  one  of  the  estimator  types  is  to  be 
preferred  for  this  purpose. 

For  maximum  efficiency  of  parameter  estimation,  a 
density  estimator  is  required  that  provides  an  acceptable 
balance  between  the  coefficient  of  variation  of  the 
estimator  at  the  peak  being  estimated  and  the  distorting 
influence  of  neighbouring  peaks.  The  constant-area  and 
Fisher- weighted  estimators  appear  equally  suitable;  the 
properties  of  the  constant-proportion  estimator  with  the 
unimodal  populations  used  in  this  study  cannot  be 
extrapolated  to  multimodal  populations. 
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3  Numerical  Characterization 

3,1  Introduction 

The  subject  of  this  chapter  is  the  characterization  of 
single  fabric  elements  by  means  of  statistics  that  not  only 
describe  the  fabric  element  but  also  can  be  used  in 
statistical  tests-  There  are  two  kinds  of  orientation  data: 
axes,  which  can  be  thought  of  as  diameters  of  the  unit 
sphere,  and  vectors,  which  can  be  thought  of  as  radii  of  the 
unit  sphere.  There  are  two  kinds  of  descriptive  statistics 
that  are  important  for  orientation  data-  Both  kinds  include 
measures  of  mean  and  dispersion-  For  reasons  that  will  be 
explained  later,  the  first  kind  are  suitable  for 

characterization  of  vector  data  and  will  be  referred  to  as 

vector  statistics,  while  the  second  kind  are  suitable  for 
characterization  of  axis  data  and  will  be  referred  to  as 

axis  statistics-  The  axis  statistics  include  the  direction 

of  minimum  density  as  well  as  the  direction  of  maximum 
density  or  mean  direction. 

Statistical  tests  are  based  on  the  properties  of  a 
theoretical  distribution  model,  the  parameters  of  which  are 
estimated  from  the  data.  Fisher  (1953)  introduced  a  model 
suitable  for  representing  clusters  of  vectors.  The 

parameters  of  the  distribution  can  be  estimated  from  the 
vector  statistics,  so  that  those  statistics  can  be  used  to 

vector  data.  Additional  testing  procedures 


perform  tests  on 
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have  been  derived  by  Watson  (1956a,  1956b) ,  Watson  and 
Williams  (1956) ,  Watson  and  Irving  (1957)  and  Stephens 
(1967,1969).  Barton  (197h)  described  a  graphical  procedure 
for  obtaining  the  vector  statistics. 

While  most  fabric  data  are  axes,  some  can  be  vectors. 
For  example,  the  normals  to  bedding  surfaces  can  be  vectors 
if  the  facing  direction  is  known  and  taken  into  account. 
Cruden  and  Charlesworth  (1966)  used  the  vector  statistics 
and  Fisher's  distribution  to  characterize  and  test  such 
data.  Watson  (1960,1965)  developed  some  tests  for  the  case 
of  samples  of  vectors  drawn  from  several  Fisher 

distributions  with  coplanar  means,  in  response  to  the  need 
for  methods  of  treating  observations  of  cy lindrically  folded 
bedding-  This  application  has  been  further  discussed  by 
Cruden  (1968)  and  Cruden  and  Charlesworth  (1972). 

Bingham  (1964)  studied  a  model  suitable  for 
representing  a  cluster  of  axes.  The  parameters  of  this 
distribution  can  be  estimated  from  the  axis  statistics,  so 
that  these  statistics  can  be  used  in  tests  for  axis  data.  A 
special  case  of  Bingham's  distribution  has  been  studied  by 
Dimroth  (1962,  1963)  and  Watson  (1965).  This  special  case 
has  axial  symmetry  and  is  known  as  the  Dimroth- Watson 
distribution.  Two  other  models  of  axially  symmetric 
great-circle  distr ibutions  were  studied  by  Selby  (1964),  but 
they  have  not  been  developed. 


While  the  axis  statistics  and  Bingham's  distribution 
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are  suitable  for  characterizing  and  testing  axis  data,  their 
development  has  been  relatively  recent  and  little  use  has 
been  made  of  them.  The  axis  statistics  were  used  by  Fara 
and  Scheidegger  (1963)  and  Scheidegger  (1964)  in  the 
analysis  of  earthquake  fault  planes,  and  by  Scheidegger 
(1965)  for  characterizing  clustered  axes  such  as  sedimentary 
grain  axes,  but  no  testing  procedures  were  available  at  that 
time.  Use  of  these  statistics  to  characterize  the 
distributions  of  long  axes  of  till  stones  has  been  discussed 
by  Ramsden  (1970)  and  Mark  (1973),  but  again  testing 
procedures  based  on  Bingham's  distribution  were  not  used. 

Both  these  models  are  unimodal,  so  that  only  unimodal 
distributions  can  be  tested.  None  of  the  statistics 
mentioned  above  are  adequate  to  describe  multimodal 
distributions,  in  which  each  mode  must  be  characterized 
separately.  A  statistical  test  is  valid  only  if  the  model 
on  which  it  is  based  is  a  reasonably  good  approximation  of 
the  actual  distribution.  In  all  uses  of  the  vector  and  axis 
statistics  and  tests  based  on  the  corresponding  distribution 
models,  the  adequacy  of  the  model  must  be  established.  This 
is  done  by  combinations  of  parametric  tests,  non- parametric 
tests  and  data  displays. 

Fisher's  model  can  be  used  to  obtain  meaningful  results 
with  axis  data  by  assigning  a  sense  or  direction  to  the  axes 
provided  that 


(1)  the  axes 


have  a  unimodal  axially  symmetric 
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distribution,  as  indicated  by  an  adequate  fit  to  Fisher's 
model, 

(2)  the  dispersion  of  the  axes  is  sufficiently  small 

(estimated  concentration  parameter  of  Fisher's  model  >  3, 

which  means  that  Pr  {  6  >  tt/2}  «  0 . 05)  ,  and 

(3)  sense  is  assigned  to  the  axes  so  that  the  resulting 
vectors  form  a  single  cluster. 

The  vector  statistics  and  tests  based  on  Fisher's  model 
have  been  used  in  the  analysis  of  the  long  axes  of  till 
stones  (Andrews  and  Shimizu,  1966;  Andrews  and  King,  1968; 
Cowan,  1968;  Andrews  and  Smith,  1966,1970;  Andrews,  1971). 
In  these  papers  points  (2)  and  (3)  were  considered  (the 
treatment  of  condition  (3)  was  greatly  improved  by  Mark 
(1971))  but  the  fit  of  the  data  to  Fisher's  distribution  was 
not  tested.  This  amounts  to  an  implicit  assumption  that  the 
long  axes  analyzed  had  unimodal  axially  symmetric 
distributions.  In  view  of  the  well-known  tendency  of  the 
long  axes  of  till  stones  to  display  multimodal  distributions 
(Holmes,  1941;  Glenn,  Donner  and  West,  1957;  Harrison,  1957; 
Kauranne,  1960;  Lindsay,  1970)  results  based  on  such  an 
assumption  are  very  unlikely  to  be  accurate.  In  these 
studies  a  test  of  uniformity  based  on  Fisher's  model  was 
applied  to  the  axis  data;  the  test  is  not  under  any 
circumstances  valid  for  axis  data.  These  shortcomings  have 
been  discussed  in  detail  by  Ramsden  (1970)  and  Mark  (1973). 
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The  vector  and  axis  statistics  are  described  in  section 
3. 2,  and  the  important  distribution  models  in  section  3.3. 
Tests  for  the  adequacy  of  the  different  models  and  the  use 
of  these  tests  as  means  for  characterizing  a  distribution  of 
unknown  form  are  described  in  section  3-4.  In  some 
applications  it  is  desirable  to  weight  observations; 
however,  in  the  literature  cited  above  all  observations  are 
assumed  to  carry  equal  weight,.  Therefore,  some  procedures 
for  weighted  data  are  suggested  in  section  3.5.  Computer 
programs  to  implement  the  methods  recommended  in  this 
chapter  are  described  in  section  3.6.  Section  3.7  contains 
some  examples,  and  section  3.8  summarizes  the  recommended 
procedures. 

3.2  Descriptive  Statistics 

3.2.1  Distributions  on  the  Sphere 

The  most  commonly  encountered  spherical  point 
distributions  are  illustrated  in  Figure  24.  A  radius  of  the 
unit  sphere  (unit  vector)  cuts  the  unit  sphere  at  one  point. 
A  cluster  of  vectors  thus  gives  rise  to  a  polar  distribution 
(Figure  24A) .  A  diameter  of  the  unit  sphere  (axis)  cuts  the 
uni-fc  sphere  at  two  points,  so  that  a  cluster  of  axes  gives 
rise  to  a  bipolar  distribution  (Figure  24B) .  Axes  scattered 
about  a  plane  yield  an  equatorial  or  girdle  distribution 
(Figure  24C) .  Distributions  A,  B  and  C  may  be  axially 
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symmetric  or  asymmetric-  Axes  or  vectors  with  no  preferred 
orientation  give  rise  to  a  uniform  distribution  (Figure 
24D) .  These  are  the  simple  distributions;  distributions  of 
greater  complexity  can  be  regarded  as  mixtures  of  these 
simple  distributions.  For  example,  vectors  clustered  about 
two  directions  produce  a  mixture  of  two  polar  distributions, 
while  axes  clustered  about  two  preferred  orientations  yield 
a  mixture  of  two  bipolar  distributions. 

3.2.2  Vector  Statistics 

Let  yA  ,  ]• ,  i=1,...,n  be  a  sample  from  a 

population  of  unit  vectors.  A  useful  measure  of  the 
direction  of  maximum  concentration  is  the  vector  of  means 
£3.1]  N  =  iLx1/n,  Ey^/n,  Ez^/n]'  =  EA^n  . 

Let  m=|M|.  Note  that  0<m<1,  and  that  if  all  the  A  are 
equal  tc  A  then  M=A  and  m=1.  So  m  is  a  measure  of 
concentration. 

3.2.3  Axis  Statistics 

Let  A ^ ,  i=1,...,n,  represent  a  sample  from  a  population 
of  axes.  Since  each  axis  could  be  equally  well  represented 
by  -A^,  measures  are  required  in  which  and  -A ^  are 

equivalent.  Such  measures  are  provided  by  the  matrix  of 
variances  and  covariances 
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T  has  three  eigenvectors  M^ ,  and  which  identify  the 
axes  of  minimum,  intermediate  and  maximum  concentration,  and 
three  eigenvalues  m^,  m^  and  m^  which  measure  the 
concentrations  of  the  sample  along  those  three  axes.  Note 
that  trace(T)  =  1,  so  that  111  j*  ®2  *  “3  =  1 '  and  that  0<mi<1, 
i=1,2,3;  also  that  if  all  the  A^=A,  then  T=AA*#  M^-A  and 
m^=1  while  M  ^  and  M 2  are  indefinite  and  m^  =  m2=0.  Note 
further  that  if  the  A 1  are  not  all  equal  and  are  coplanar, 
M ^  is  normal  to  the  A ^  and  m^=0,  while  M2,  M^,  m2  and  m^  are 
determined  by  the  distribution  of  the  A^  in  the  plane.  For 
further  discussion  of  the  interpretation  of  these  statistics 
see  Watson  (1966)  and  Mardia  (1972)  . 


3.3  Distribution  Models 

3-3-1  Fisher's  Distribution 

According  to  this  model  the  probability  is  distributed 
with  axial  symmetry  about  a  polar  vector  U  so  that  the 
density  is  maximum  at  U  and  minimum  at  -U.  The  density  in  a 
given  direction  A  is  proportional  to 
£3.3]  exp(kU'A) 


where  k  is  a  constant. 


The  larger  k  the  more  the 


probability  is  concentrated  about  U;  hence  k  is  called  the 
concentration  parameter. 

If  A  ^ ,  i=1,-..,n,  is  a  sample  from  a  Fisher 

distribution,  the  maximum  likelihood  estimate  of  the  polar 
vector  is  the  mean  vector  M  defined  in  section  3.2.2 

(Mardia,  1972,  p.250).  Furthermore,  an  unbiased  estimate  of 
k  when  k  is  large  is 

[3.4]  (1-2/n)/ (1-m)  (Mardia,  1972,  p.251). 

If  n  is  also  large,  the  variance  of  this  estimate  is 
approximately 

[3.5]  k2/n  (Mardia  1972,  p.250). 

The  semi-apical  angle  of  the  (1-a)  confidence  cone  for  the 

polar  vector  is 

[3.6]  arccos  { 1  -  Fq  ( 1-m) /m  (n- 1 ) } 

where  Fq  is  the  upper  100  a  %  point  of  the  F-distribution 
with  2  and  2n-2  degrees  of  freedom  (Mardia,  1972,  p.26  1). 

There  are  three  drawbacks  to  using  Fisher's 

distribution  and  the  vector  statistics  with  axes. 

(1)  For  representing  axes,  the  vector  A  is  equivalent 
to  the  vector  -A  .  However,  in  computing  the  vector 
statistics  these  two  vectors  are  not  equivalent,  so  the 
vectors  used  to  represent  the  axes  cannot  be  chosen 
arbitrarily-  They  must  be  chosen  so  they  form  a  single 
cluster  cn  the  sphere. 


(2)  Use  of  Fisher's  distribution  cannot  be  justified 
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when  observed  axes  have  a  large  dispersion,  that  is,  when 
k<3,  since  Fisher's  distribution  cannot  then  be  used  as  a 
distribution  on  a  hemisphere.  This  may  be  shown  by  setting 
k=3  and  0  =,tt/2  in  £3.17].  This  gives  the  probability  that 
an  angle  0  will  be  observed  that  is  greater  than<TT/2  when 
k=3,  which  is 

exp  (-3)  =  0.05. 

That  is,  less  than  95%  of  the  probability  is  within  one 
hemisphere  when  k<3. 

(3)  The  parametric  test  for  uniformity  based  on 
Fisher's  distribution  described  in  section  3.4.2  is  not 
valid  for  axes. 

These  drawbacks  are  overcome  by  using  the  axis 
statistics  and  Bingham's  distribution  described  in  the  next 
section . 

3.3.2  Bingham's  Distribution 

According  to  this  model  the  probability  is  distributed 
with  respect  to  three  orthogonal  axes  U,  V  and  W  so  that  the 
density  in  a  given  direction  A  is  proportional  to 
[3.7]  exp(k1(U'A)2  *  k2(V'A)Z  +  k^W'A)*} 

where  k^,  k 2 and  k^  are  constants.  Since  the  sum  of  the  k's 
is  arbitrary  k^  is  taken  as  zero  (Mardia,  1972,  p.235). 

Bingham's  model  contains  several  important  special  cases 
(Mardia,  1972,  p.236):  (a)  For  1^  =k2=k3  it  reduces  to  the 

uniform  distribution-  (b)  For  k2=k^=0  it  has  axial 
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symmetry.  (c)  For  ^^>>^>^^=0  it  is  an  asymmetric  bipolar 
distribution,  while  for  kj<<k2<k^=0  it  is  an  asymmetric 
girdle  distribution . 

If  A^ ,  i=1,».,.  ,n,  represents  a  sample  from  a  Bingham 
distribution,  the  maximum  likelihood  estimates  of  the 
principal  axes  are  the  eigenvectors  M^ ,  M  ^  and  M  of  the 
matrix  T  defined  in  section  3.2.3  (Mardia,  1972, 

pp. 254-256).  The  maximum  likelihood  estimates  of  k^  and  k^ 
can  be  obtained  from  tables  or  nomograms  in  Bingham  (1964) 
using  the  eigenvalues  m^,  m2  and  m y  but  the  procedure  is 
awkward.  When  the  distribution  is  nearly  axially  symmetric 
estimates  of  k^  and  k2  can  be  calculated  using  an 

approximation  given  by  Mardia  (1972,  p.278). 

The  special  case  in  which  the  distribution  has  axial 
symmetry  is  so  important  that  it  has  been  studied  as  a 
separate  distribution  known  as  the  Dimroth-Watson 
distribution. 

3.3.3  Dimroth- Watson's  Distribution 

According  to  this  model  (Mardia,  1972)  the  probability 
is  distributed  with  axial  symmetry  about  a  polar  axis  U  so 

that  the  density  in  a  given  direction  A  is  proportional  to 

[3.8]  exp  {k  (U '  A)  2] 

where  k  is  a  constant  again  called  the  concentration 
parameter.  The  model  differs  from  Fisher's  in  having  a 
plane  of  symmetry  normal  to  U.  For  k=0  it  reduces  to  the 
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uniform  distribution,  while  for  k>0  it  is  a  bipolar 
distribution  with  the  probability  concentrated  about  U  and 

-U. 

If  ±=  1 , n,  represents  a  sample  from  a 

Dimroth- Watson  distributicn  with  k>0,  the  maximum  likelihood 
estimate  of  the  polar  axis  is  given  by  the  eigenvector  M^ 
associated  with  the  largest  eigenvalue  of  the  matrix  T 
defined  in  section  3.2.3  (Mardia,  1972,  p. 253).  The  maximum 
likelihood  estimate  of  k  can  be  obtained  from  tables  in 
Mardia  (1972)  using  m^.  Mardia  (1972)  has  shown  that  the 
(1-a)  confidence  cone  for  the  polar  axis  is  given  by 

[3.9]  (m1cos20  ♦  m2sin20)  sin20  «•  m^cos20  >  c 

where  c=m  ^(n-2-2FQ ) / (n-2)  and  Fq  is  the  upper  100a%  point  of 

the  F-distribu tion  with  2  and  n-2  degrees  of  freedom,  and 

(0,0)  are  spherical  coordinates  referred  to  M ^ ,  M ^  and  M^  as 

axes.  Replacing  the  inequality  by  an  equality  and  setting 

0=0  gives  the  radius  on  the  cone  in  the  plane  normal  to  M ^ 

4 

[3.10]  0=  arccos  { (c-m1)/(m^-m1)  }  2  . 

Setting  0  =tt/2  gives  the  radius  in  the  plane  normal  to  M^ : 

[3.11]  0=  arccos  {  (c-m2)  /  (m^-m2)  }  2  . 

For  k<0  the  Dimroth- Watson  model  represents  an 
equatorial  distribution  with  the  probability  concentrated 
about  the  plane  normal  to  the  polar  axis.  The  maximum 
likelihood  estimate  of  the  polar  axis  in  this  case  is  M^ 
(Mardia,  1972,  p-253)  and  that  of  k  can  again  be  obtained 
from  tables  in  Mardia  (1972),  this  time  using  n^.  If  (0,0) 
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are  spherical  coordinates  referred  now  to  the  axes  Mg,  M^# 
M^ ,  Watson  (1965)  showed  that  the  1-a  confidence  cone  for 

the  polar  axis  is  defined  by 

2  2  2  2 

[3.12]  m^cos  0  ♦  (ffigcos  0  *  m^sin  0)  sin  0  <  c 

where  c=m ^  (n-2-2FQ  )/ (n-2)  and  Fq  is  the  upper  100ct%  point  of 
the  F-distribution  with  2  and  n-2  degrees  of  freedom.  As 
before,  we  compute  the  radius  of  the  cone  in  the  plane 
normal  to  M^  by  changing  the  inequality  to  an  equality  and 
setting  0  =0 : 

4 

[3.13]  6  =  arccos  { (m  2*c)  /  (m  g-m^)  }2  . 

Setting  0  =it/2  gives  the  radius  in  the  plane  normal  to  Mgi 

[3.14]  ©  =  arccos  { (m ^-c)  /  (m ^-m^  • 


3.4  Testing  the  Adequacy  of  the  Model 

3.4.1  General  statement 

The  vector  statistics  are  adequate  to  characterize  a 
distribution  that  conforms  to  Fisher's  model,  but  not  one  of 
any  greater  complexity,  for  example,  asymmetric  or 
multimodal.  The  axis  statistics  are  adequate  to 
characterize  a  distribution  that  conforms  to  Bingham's 
model,  but  not  one  of  any  greater  complexity.  Thus 
characterization  of  a  set  of  vectors  by  the  vector 
statistics  constitutes  implicit  assumption  that  the  data 
distribution  can  be  approximated  by  Fisher's  model; 
similarly,  characterization  of  a  set  of  axes  by  the  axis 
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statistics  constitutes  implicit  assumption  that  the  data 
distribution  can  be  approximated  by  Bingham’s  model. 

If  the  distribution  is  more  complex  than  the  assumed 
model,  the  statistics  are  not  adequate  to  completely 
characterize  the  distribution,  and  the  data  must  be  further 
subdivided.  Thus  it  is  necessary  to  test  for  distributions 
more  complex  than  the  assumed  model.  If,  on  the  other  hand, 
the  distribution  is  simpler  than  the  assumed  model,  the 
statistics  are  again  misleading  and  should  be  simplified  to 
represent  the  true  form  of  the  distribution.  Thus  tests  for 
simpler  cases  than  the  assumed  distribution  are  required. 

Distributions  less  complicated  than  the  assumed 
distribution  are  special  cases  of  the  assumed  distribution 
and  can  be  tested  for  by  means  of  parametric  tests  based  on 
the  calculated  statistics.  Since  more  complex  distributions 
are  by  definition  beyond  the  scope  of  the  assumed  model, 
parametric  tests  are  out  of  the  question  and  non- parametric 
tests  or  data  displays  are  the  means  that  are  used. 
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3.4.2  Vector  Statistics 

Tests  for  Distributions  More  Complex  than  Fisher's 

Conditions  to  be  looked  for  are  multimodality  and  axial 
symmetry-  Multimodal  distributions  must  be  further 
subdivided  and  the  elements  characterized  separately-  An 
attempt  should  be  made  to  further  subdivide  axially 
symmetric  distributions,  particularly  by  areal  analysis.  If 
subdivision  into  axially  symmetric  elements  is  not  possible, 
the  vector  statistics  can  be  used  with  reservation. 

Data  displays  are  an  important  diagnostic  tool, 
especially  projections  of  the  spherical  distribution  onto 
the  plane  normal  to  the  computed  mean  direction,  and  rose 
diagrams  showing  the  circular  distribution  of  the 
projections  of  the  vectors  onto  this  plane.  This  circular 
distribution  can  be  tested  for  uniformity  either  by  using  a 
chi-square  test  as  described  by  Watson  and  Irving  (1957)  or 
using  Kuiper's  test  described  by  Mardia  (1972,  p .  178) ,.  This 
test  has  been  shown  to  be  sensitive  to  two-peaked  and 
four-peaked  alternatives  to  uniformity  (Mardia,  1972, 
p.  194) .  If  a  cluster  of  points  on  the  sphere  does  not  have 
axial  symmetry,  it  is  commonly  because  either  (a)  the 
cluster  is  elongated  rather  than  circular  or  (b)  it  is 
actually  two  clusters.  In  either  case,  if  the  cluster  is 
rotated  until  the  computed  mean  is  parallel  to  the  z-axis, 
then  if  (0,0)  are  spherical  coordinates  referred  to  the  axes 
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X,  Y  and  Z,  the  resulting  distribution  of  the  0^  will  have 
two  opposite  maxima.  Hence  Kuiper’s  test  is  suitable. 

Kuiper's  test  is  performed  by  computing  the  cumulative 

distribution  of  the  data  and  the  theoretical  cumulative 

distribution.  If  1  and  1  .  are  respectively  the  maximum 

max  min 

and  minimum  values  of  the  difference  between  the  two 

cumulative  distributions,  then  Kuiper's  statistic  is 

1=1  -1  .  Percentage  points  of  the  statistic 

max  min 

[3.15]  n2l 

have  been  tabulated  by  Stephens  (1965)  and  Mardia  (1972, 
p . 3 08) .  If  n>8  the  statistic 

[3.16]  (n  ^  +  0.155  +  0.24n”^)  1 

is  independent  of  n;  percentage  points  are  given  by  Stephens 
(1970)  and  Mardia  (1972,  p.178). 

The  distribution  of  deviations  from  the  computed  mean 

can  be  compared  with  Fisher*s  model  using  a  chi*sguare  test 

of  fit.  For  k>3  Watson  and  Irving  (1957)  gave  the 

probability  that  a  value  6  will  be  observed  that  is  less 

than  0  as 
o 

[3.17]  exp{-k(1  -  coseo)}. 

By  dividing  the  range  0  to  it  into  classes,  a  chi—square  test 
of  fit  can  be  performed.  The  simplest  way  to  avoid  very 
small  expected  frequencies  is  to  construct  the  classes  so 
that  the  expected  frequencies  are  all  equal.  For  example, 
limits  of  10  such  classes,  each  having  an  expected  frequency 
of  n/10,  can  be  computed  by  setting  [3.17]  successively 
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equal  to  0-9,  0.8,  ...  0-1  and  computing  cos  9q  in  each 

case. 

Tests  for  Special  Cases  of  Fisher's  Model 

When  k=0  Fisher's  distribution  reduces  to  the  uniform 


distribution. 

The 

hypothesis:  k=0  can 

be 

tested 

by 

referring  the 

length 

m  of  the  mean  vector 

to 

tables 

in 

Watson  (1956a)  or  Mardia  (1972). 

3,. 4. 3  Axis  Statistics 

Tests  for  Distributions  More  Complex  than  Bingham's 

Multimodality  is  the  only  serious  condition  to  be 
looked  for  in  this  case,  since  axially  asymmetric 
distributions  are  encompassed  by  Bingham's  model.  Data 
displays  remain  the  only  tool  for  this  job.  In  particular, 
projections  of  the  spherical  distribution  onto  the  planes 
normal  to  M ^  and  M  y  and  rose  diagrams  of  the  circular 
distributions  of  the  projections  of  the  axes  in  those  planes 
are  useful.  Multimodal  distributions  must  be  further 
subdivided  and  the  components  characterized  separately. 
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Tests  for  Special  Cases  of  Bingham's  Distribution 


Important  special  cases  of  Bingham's  distribution  are 
the  uniform  distribution,  the  axially  symmetric  equatorial 
distribution,  and  the  axially  symmetric  bipolar 
distribution.  At  present  multi-sample  tests  are  available 
only  for  the  axially  symmetric  cases.  The  hypothesis: 
k  =k  =k  can  be  tested  against  the  alternative:  not  all  the 

C.  j 

k's  are  equal,  by  means  of  one  of  the  statistics 
[3.  18] 

[3.19] 

both  of  which  are  distributed  under  the  null  hypothesis  as 


(5n/6)  £  log2  (3m.  ) 

ie=13  1 

(5n/6)  ig(3m1-1)2 


chi-square  with  5  degrees  of  freedom  when  n  is  large. 

For  the  test  for  axial  symmetry  about  the  eigenvector 
M  (bipolar  case)  Bingham  gave  three  statistics: 

[3.20]  n^2~\  > 

[3.21  ]  (n/3)  log2  (n^/o^) 

[3.22]  (4n/3)  {(m2-m1)/(m2+m1)}2. 

All  three  are  distributed  as  chi-square  with  2  degrees  of 
freedom  when  n  is  large.  For  the  test  for  axial  symmetry 
about  M  ^  (girdle  case)  Bingham  gave  three  statistics: 

A  A 

[2.23]  n(k3-k2)  (m^-m2)/2 

[3.24]  (n/3)  log2  (mg/m^) 

[3.25]  (4n/3)  { (m3»m2)  /  (m  ^  m£) }  2  . 

All  three  are  again  distributed  as  chi-sguare  with  2  degrees 
of  freedom  when  n  is  large. 


There  are  two  other  tests  that  should  be  mentioned 
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here.  These  are  tests  for  uniformity,  where  now  the  uniform 
distribution  is  regarded  as  (a)  a  special  case  of  the 
equatorial  form  of  the  Dimroth-Watson  distribution  and  (b)  a 
special  case  of  the  bipolar  form  of  the  Dimroth-Watson 
distribution.  The  test  is  performed  by  referring  (a)  m^  and 
(b)  m ^  to  tables  given  by  Anderson  and  Stephens  (1972).  One 
of  these  tests  is  appropriate  when  one  of  the  cases  of  the 
Dimroth-Watson  distribution  can  be  assumed.  Since  they 
require  more  restrictive  assumptions  than  Bingham's  test  for 
uniformity,  they  should  be  more  powerful. 

Mark  (1973)  used  m  ^  and  m^  and  Anderson  and  Stephens' 
(1972)  tables  in  testing  the  long  axes  of  till  stones  for 
uniformity  and  for  preferred  orientation.  In  this  situation 
axially  symmetric  and  axially  asymmetric  equatorial  and 
bipolar  distributions  are  all  possibilities.  Hence  one 
particular  form  of  Dimroth- Watson • s  distribution  cannot  be 
assumed,  and  Anderson  and  Stephens'  tests  are  not  suitable. 
Since  it  is  required  to  test  for  uniformity  against  both 
equatorial  and  bipolar  alternatives  and  to  distinguish  these 
alternatives,  Bingham's  tests  are  quite  suitable. 

The  rigour  required  in  the  characterization  process  is 
determined  by  the  purpose  of  the  characterization.  While 
Bingham's  tests  are  somewhat  insensitive  (Bingham,  1964) 
their  failure  to  reject  axial  symmetry  probably  justifies 
acceptance  of  the  axially  symmetric  model  for  the  purpose  of 
performing  multi-sample  tests.  However,  in  some 
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circumstances  a  more  powerful  test  for  axial  symmetry  is 
desirable.  If  the  ability  to  distinguish  a  symmetric 
equatorial  distribution  from  an  asymmetric  equatorial 
distribution  is  crucial,  as  it  is,  for  example,  in  studies 
of  the  preferred  orientations  of  elongated  stones  in  glacial 
till  or  other  sediments,  then  a  test  for  axial  symmetry  is 
required  that  is  powerful  in  distinguishing  axial  symmetry 
from  the  particular  alternatives  expected.  With  axis  data 
an  asymmetric  equatorial  distribution  has  at  least  two 
density  maxima,  and  if  mixed  distributions  are  a  possibility 
there  could  be  four  maxima.  Thus  Kuiper's  test  for 
uniformity  on  the  circle,  described  in  section  3.4.2,  is 
appropriate  in  this  situation.  For  this  purpose  it  is 
applied  to  the  circular  distribution  of  the  projections  of 
the  axes  on  the  plane  normal  to  M 


3.5  Treating  Weighted  Observations 

We  suggest  the  following  procedures  for  use  with 
weighted  observations.  For  vector  data,  let  the  unit 
vectors  A^,„...,An  be  associated  with  weights  w^,...,w  .  In 
place  cf  £  A^/n  as  mean  vector  it  seems  natural  to  use 

the  weighted  mean 

[3.26]  M  =  £  wiA1/  £w^ 

This  is  consistent  with  the  previous  definition  [3.1]  since 
when  all  the  weights  are  equal  it  reduces  to 

M  =  w  £ A^/nw  =  EA^n. 
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Also  when  all  the  A.t  are  equal  to  A 

M  =  A  =  A. 

Thus  1-m  can  still  be  taken  as  a  measure  of  dispersion  and  k 
can  be  estimated  as  before. 

For  axis  data  we  suggest  that  for  weighted  observations 
the  matrix  T  can  be  redefined  as  the  weighted  mean 
[3.27]  T=  Zw1AiAiVZw1. 

Again  this  is  consistent  with  the  previous  definition  [3.2] 
since  when  all  the  w  ^  are  equal  to  w 

T  =  w  £  Aj,  A  /nw  =  E  AjA^'/n 

as  before.  Also  trace  (T)=1,  and  when  all  the  A  ^  are  equal 
to  A 

T  =  AA'  E  w^/E  w  i  =  AA*  . 

When  observations  are  weighted  the  non-parametric  tests 

can  be  performed  as  follows.  For  the  chi-square  test  of 

fit*  the  i^1  observation  should  be  counted  as  nw^Ew^,  so 

that  the  sum  of  all  the  observed  class  frequencies  is  n. 

For  Kuiper's  test  the  cumulative  proportion  up  to  and 

including  the  j  ^  observation  can  be  calculated  as  the 

cumulative  proportion  of  the  weights,  that  is, 

j  n 

E  w  /  Z  w.. 
i-1  1  i-1 
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3.6  Computer  Programs 

The  program  MODEL  1  computes  the  vector  and  axis 
statistics  and  performs  the  parametric  tests  for  special 
cases  based  on  the  axis  statistics.  If  axial  symmetry  is 
accepted,  the  parameter  of  the  Dimroth- Watson  model  is 
estimated.  In  all  cases  the  data  are  subjected  to  two 
rotations.  The  first  rotation  brings  the  eigenvectors  M  y 
M g  and  W ^  into  coincidence  with  the  reference  axes  north, 
east  and  down  respectively.  In  this  orientation  the 
direction  of  maximum  density  is  vertical.  The  second 
rotation  brings  the  eigenvectors  M  2  and  M1  ^nto 
coincindence  with  the  reference  axes  north,  east  and  down 
respectively.  In  this  orientation  the  direction  of  minimum 
density  is  vertical.  For  each  orientation,  the  program 
computes  the  new  trends  of  the  data  points  and  Kuiper's  test 
statistic.  Printed  output  consists  of  the  various 
statistics  and  test  results.  Other  output  consists  of  the 
data  in  its  original  form,  the  data  in  the  two  rotated 
forms,  and  the  two  circular  frequency  distributions 
corresponding  to  the  two  new  orientations. 

Using  this  output,  the  program  WNDPL0T3  can  produce 
equal-area  projections  of  the  spherical  distribution  of 
point  density,  for  the  data  in  its  original  orientation  and 
the  two  new  orientations.  This  program  operates  as  follows. 
To  map  the  density  of  points  on  the  sphere,  a  density 
estimate  is  computed  at  each  of  a  number  of  predetermined 
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"counting  locations".  For  unweighted  points,  the  density 
estimate  at  a  particular  location  would  be  obtained  by 
counting  the  number  of  points  falling  inside  a  predetermined 
area  (the  "counting  circle")  surrounding  this  location.  The 
density  estimate  is  usually  obtained  by  expressing  this 
count  as  a  percentage  of  the  total  number  of  points.  This 
program  obtains  a  density  estimate  for  weighted  points  by 
summing  the  weights  of  the  points  falling  inside  the  area 
and  expressing  this  sum  as  a  percentage  of  the  total  of  the 
weights  of  all  the  data  points.  The  density  estimates  are 
printed  in  the  form  of  an  egual-area  projection. 

The  program  uses  a  print  matrix  consisting  of  3713 
print  positions:  47  lines  with  79  characters  on  each  line. 
Printed  six  lines  to  the  inch,  and  ten  characters  to  the 
inch  horizontally,  the  print  matrix  is  approximately  eight 
inches  square.  The  equal-area  projection  is  a  circle  with  a 
10-cm  radius  centred  on  the  print  matrix.  Every  print 
position  whose  centre  lies  within  the  circle  represents  a 
counting  location.  There  are  2933  counting  locations.  The 
counting  locations  are  defined  by  direction  cosines,  which 
are  read  in  by  the  program  at  the  start  of  each  run. 

With  such  a  large  number  of  counting  locations  it  is 
inefficient  to  compare  every  counting  location  with  every 
data  point  in  the  counting  process.  The  number  of 
comparisons  is  reduced  as  follows.  For  a  particular  data 
point,  those  counting  locations  that  are  to  be  incremented 
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lie  within  a  circle  on  the  sphere  whose  projection 
approximates  an  ellipse  that  has  its  greatest  size  when  the 
data  point  lies  in  the  horizontal  plane.  Before  beginning 
the  counting  procedure,  the  program  computes  the  maximum 
dimension,  c,  for  the  ellipse  in  this  case.  For  each  data 
point,  the  program  computes  x  and  y,  the  coordinates  on  the 
projection  of  the  projected  data  point,  then  determines  the 
submatrix  of  the  print  matrix  that  lies  inside  the  square 
bounded  by  x«-c,  x-c,  y+c,  y-c.  This  square  must  wholly 
contain  the  projection  of  the  counting  circle  centred  on  the 
data  point.  Each  counting  location  represented  in  this 
submatrix  is  then  tested  by  computing  its  angular  distance 
from  the  data  point  and  comparing  this  with  the  radius  of 
the  counting  circle.  This  process  is  repeated  in  a  slightly 
modified  form  if  the  data  point  is  close  enough  to  the 
horizontal  to  affect  counting  locations  on  the  diametrically 
opposite  part  of  the  projection.  In  this  way  a  great  many 
comparisons  are  eliminated  by  means  of  a  relatively  simple 
computation. 

After  the  counting  procedure  is  completed,  the  program 
constructs  the  plot,  line  by  line,  by  expressing  each  count 
as  a  percentage  of  the  total  weight  and  then  placing  the 
appropriate  character  in  the  corresponding  print  position. 

A  contour  interval  and  a  string  of  characters  are  supplied 
to  the  program  on  parameter  cards.  As  an  enhancement  to  the 
visual  impact  of  the  plot,  characters  representing  higher 
densities  are  overprinted,  the  number  of  overprintings 
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increasing  with  the  density  value. 

The  program  N1PL0T 1  can  use  the  same  output  from  M0DEL1 
to  produce  the  corresponding  equal-area  projections  of  the 
spherical  point  distributions.  In  this  program  the 
coordinates  of  points  on  the  projection  are  computed  from 
direction  cosines  using  formulas  derived  as  follows.  Let  a 
direction  have  spherical  coordinates  (6,0)  (trend  0 ,  plunge 
(tt/2-0))  and  direction  cosines  x,  y  and  z.  On  a  Lambert 
equal-area  projection  with  radius  uQ  let  the  projection  of 
the  point  (6,0)  lie  at  a  distance  u  from  the  centre  of  the 
projection  and  let  and  y  ^  be  the  coordinates  of  the 
projected  point  referred  to  the  centre  of  the  projection, 
where  xp  and  y  are  measured  parallel  to  the  X  and  Y  axes 
respectively.  Then,  from  the  definition  of  the  equal-area 
projection , 


u  =  2^  u  Qsin  (  6/2) 


or 


£3.28] 


4 

u  =  aQ(1  -  cos0) z 


and 


[3.29]  x  =  u  sin  0 


Substituting  [3.28]  in  [3.29]  and  [3.30] 


[3.32]  yp~  COS0UO(1  ”  cose)2- 


[3.32] 


From  [2.26],  [2.27]  and  [2-28]  we  have 


[3.33  ] 


cos  6  =  z 


[3.34] 


sin  0  =  (1-z2 ) 


i 


•  i  *k“*.  -  •■=  (  i  **  Am 
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£3.35]  cos  0  =  x/(1-z2)^ 

[3.36]  sin  0 =  y/ (1-z2)2  . 

Now  combining  [3.31]  with  [3.33]  and  [3.36] 

xp  =  £y/(1-z2)^}uo(1-z)^ 

£  3- 37  ]  =  yuo((1-z)/(1-z2)} 

Combining  [3.32]  with  [3.33]  and  [3.35] 

yp  =  {X/(1-z2)^J  Uq  (1-Z)  2 
[3.38]  =  xuo[(1-z)/(1-z*)}t 

Finally,  the  program  ROSE  uses  the  circular  frequency 

distributions  written  by  MODEL  1  to  produce  smoothed  rose 

diagrams  as  follows,  input  to  the  program  ROSE  is  a  vector 

of  relative  frequencies  in  360  1-degree  intervals.  Let  t^, 

i= 1,.» . ,360,  be  the  observed  relative  frequencies.  Then  the 

smoothed  relative  frequency  for  any  given  interval  is 

360  360 

£3.39]  E  t,  w  (  0.)  /  E  w  (  0  ) 

i-1  1  1  i-1  1 

where  u  is  a  weighting  function  and  0^  is  the  angle  between 
the  given  interval  and  the  ith  interval.  w  is  taken  to  be 
the  von  Mises  density  function  which  is  proportional  to 

exp(k  cos0)  (Mardia,  1972,  p.57)  . 

This  is  analogous  to  the  Fisher-weighted  density  estimator 
described  in  Chapter  2. 

All  the  problems  related  to  the  amount  of  smoothing  to 
be  applied  to  the  data  that  were  discussed  in  section  2.6.3 
arise  again  in  connection  with  smoothing  of  rose  diagrams. 
The  statements  made  in  2.6.3  about  optimization  of  the 
amount  of  smoothing  apply  equally  here.  Again,  the  size  of 
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the  errors  in  the  data  probably  should  play  some  part  in 
determining  the  amount  of  smoothing  to  be  used.  In  the 
examples  given  here,  the  von  Mises  density  function  with 
k  =  50  was  used  as  the  smoothing  or  weighting  function  for  no 
other  reason  than  that  it  produced  rose  diagrams  that 
“looked  reasonable”.  Future  research  in  this  area  can  be 
expected  to  provide  a  meaningful  basis  for  choosing  the 
smoothing  function  taking  into  consideration  such  factors  as 
sample  size  and  precision  of  measurements. 

Computer  programs  are  documented  in  Appendix  1. 


3.7  Numerical  Examples 


Output  from  the  program  MODEL  1  for  297  weighted  poles 
to  bedding  from  Domain  3  at  the  Fording  coal  mine  is  shown 
in  Table  1.  Figure  25  shows  a  lower-hemisphere  egual-area 
point  diagram  of  the  poles.  Bingham's  tests  at  the  5%  level 
reject  uniformity  but  accept  axial  symmetry  about  M 
(bipolar  case) .  The  parameter  of  the  best-fitting  bipolar 
Dimroth- Watson  distribution  is  35.4.  The  modified  Kuiper's 
test  rejects  uniformity  in  the  plane  normal  to  M ^  at  the  5% 
level. 


The  method  of  characterizing  distributions  of  unknown 
form  is  illustrated  with  three  samples  of  long  axis 
orientations  of  elongated  till  stones.  The  data  were  kindly 
supplied  by  Dr  J  A  Westgate,  and  were  obtained  from  a 
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hummocky  disintegration  moraine  near  Cooking  Lake  about  15 
miles  east  of  Edmonton  (Bayrock  and  Hughes,  1962) -  It  is  of 
interest  to  know  whether  the  axes  are  randomly  oriented  or 
whether  they  tend  to  lie  in  a  plane,  cluster  about  a  line, 
or  both.  The  eigenvalues  of  T  for  each  sample  are  given  in 
Table  2.  A  lower- hemisphere  projection  of  the  axes  in 
sample  30  is  shown  in  Figure  26A.  Figure  26B  shows  the  same 
data  with  the  plane  of  projection  normal  to  ,  while  in 
Figure  26D  the  plane  of  projection  is  normal  to  M  j.  Figures 
26C  and  26E  show  the  smoothed  rose  diagrams  corresponding  to 
the  projection  planes  of  Figures  26B  and  26D  respectively. 
For  this  sample  the  statistics  for  testing  for  uniformity 
[3.18]  and  [3.19]  are  respectively  63.9  and  44.7.  The  upper 
5%  point  of  the  chi-sguare  distribution  with  5  degrees  of 
freedom  is  11.07.  Thus  the  hypothesis  of  uniformity  is 
strongly  rejected.  To  test  the  hypothesis  of  axial  symmetry 
about  we  use  [3.24]  and  [3.25]  that  do  not  require 
estimation  of  k^  and  k2;  these  statistics  are  respectively 
4.82  and  4.69.  The  upper  5*  point  of  the  chi-square 
distribution  with  2  degrees  of  freedom  is  5.99;  thus  the 
hypothesis  of  a  uniform  equatorial  distribution  is  not 
rejected.  For  the  test  of  axial  symmetry  about  M  ^  the 
statistics  [3.21]  and  [3.22]  have  values  respectively  of 
21.37  and  19.07.  Thus  axial  symmetry  about  M ^  is  rejected. 
Hence  for  sample  30  Bingham's  tests  lead  to  acceptance  of 
the  uniform  equatorial  model.  However,  after  projection 
onto  the  plane  normal  to  Hj  the  modified  Kuiper's  statistic 
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is  1.85-  Since  the  upper  5%  point  of  this  statistic  is 
1.747,  we  are  led  to  reject  the  uniform  equatorial  model 
after  all.  Further  analysis  of  the  distribution  in  this 
plane  would  identify  the  preferred  directions  (Figures  26D 
and  26 E ) .  If  a  unimodal  distribution  is  inferred  from  this 
analysis,  the  distribution  can  be  characterized  by  the 
three-dimensional  axis  statistics  already  obtained.  If  a 
multi-mcdal  distribution  is  inferred,  it  should  be 
subdivided  if  possible  and  the  analysis  repeated  for  each 
fabric  element. 

Point  diagrams  and  rose  diagrams  for  sample  100  are 
shown  in  Figure  27  .  For  this  sample  the  statistics  [3.18] 
and  £3.19]  have  values  39.21  and  34.06,  so  the  hypothesis  of 
uniformity  is  rejected.  The  statistics  for  axial  symmetry 
about  M  ^  are  8.24  and  7.60,  while  those  for  axial  symmetry 
about  M  are  6.43  and  6.03.  Thus  all  three  hypotheses  are 
rejected  for  this  sample.  This  sample  illustrates  the 
danger  of  relying  entirely  on  numerical  testing  procedures. 
Kuiper's  test  accepts  axial  symmetry  about  whereas  the 

rose  diagram  (Figure  27C)  clearly  shows  asymmetry  about  this 
axis.  Kui per*  s  test  rejects  axial  symmetry  about  &  (Figure 
27 d  and  E) .  This  sample  thus  needs  further  subdivision 
before  it  can  be  characterized. 

For  sample  110  the  displays  are  shown  in  Figure  28. 
For  this  sample  the  uniformity  statistics  are  3.96  and  4.29, 
so  that  the  hypothesis  of  uniformity  is  accepted. 
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3-8  Summary  and  Conclusions 

If  the  data  are  vectors,  they  should  be  characterized 
by  the  vector  statistics-  The  adequacy  of  these  statistics 
can  be  checked  by  means  of  data  displays  and  both  parametric 
and  non-parametric  tests.  If  this  characterization  is 
adequate,  multi-sample  tests  can  be  used-  If  not,  the  data 
must  be  further  subdivided. 

If  the  data  are  axes,  they  should  be  characterized  by 
the  axis  statistics-  The  adequacy  of  this  characterization 
should  be  checked  by  means  of  data  displays  and  parametric 
tests  for  special  cases.  The  data  displays  and  parametric 
tests  recommended  here  provide  a  versatile  means  for 
characterizing  a  set  of  axes  thought  to  constitute  a  single 
fabric  element-  Multi-sample  tests  are  available  for 
axially  symmetric  cases  only. 

Fisher's  model  can  be  used  to  obtain  meaningful  results 
with  axis  data  by  assigning  sense  or  direction  to  the  axes 
provided  that 

(1)  the  axes  have  a  unimodal  axially  symmetric 
distribution,  as  indicated  by  an  adequate  fit  to  Fisher's 
model, 

(2)  the  dispersion  of  the  axes  is  sufficiently  small 
(estimated  concentration  parameter  of  Fisher's  model  >3, 
which  means  that  Pr[e>ir/2J  «  0-05),  and 
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(3)  sense  is  assigned  to  the  axes  so  that  the  resulting 
vectors  form  a  single  cluster- 

The  smoothed  rose  diagram  produced  by  the  program  BOSE 
is  a  new  display  technique,  and  Bingham's  single- sample 
tests  are  introduced  for  the  first  time  to  fabric  analysis. 

The  adeguacy  of  a  characterization  depends  in  part  on 
the  purpose  of  the  characterization.  For  example,  Bingham's 
tests  are  suitable  for  establishing  axial  symmetry  for  the 
purpose  of  performing  the  multi-sample  tests  described  in 
Chapter  4.  However,  in  seme  studies  the  importance  of 
identifying  preferred  orientations  in  an  equatorial 
distribution  calls  for  a  more  powerful  test.  Kuiper's 
non-parametric  test  used  to  test  for  uniformity  on  the 
circle  is  probably  the  most  suitable.  Similar  remarks  apply 
to  Bingham's  test  for  uniformity. 

Weighted  observations,  whether  axes  or  vectors,  can  be 
processed  by  means  of  the  modified  procedures  detailed  in 
section  3.5.  These  procedures  are  new. 

The  tests  based  on  Bingham's  distribution,  including 
the  multi-sample  tests  discussed  in  Chapter  4,  are 
introduced  here  for  the  first  time  to  fabric  analysis.  The 
introduction  of  the  multi-sample  tests  for  axially  symmetric 
cases  makes  available  for  the  first  time  a  set  of  testing 
procedures  for  axis  data  corresponding  to  those  available 
for  vector  data.  This  is  an  important  advance  in  fabric 


. 
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analysis,  since  most  fabric  data  are  axes.  The  axis 
statistics,  hitherto  little  used,  are  greatly  increased  in 
importance  and  usefulness  with  the  availability  of  testing 
procedures  based  on  them. 
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4  Areal  Analysis 

4. 1  Introduction 

Characterization  of  the  fabric  of  a  body  of  rock 
requires  the  definition  of  domains  within  which  the  fabric 
of  the  body  is  homogeneous.  In  this  chapter  this  problem  is 
considered  in  relation  to  a  single  fabric  element.  In 
practice  this  analysis  would  be  carried  out  for  each 
measured  fabric  element.  In  the  statistical  programs  the 
tests  based  on  Fisher's  distribution  for  vectors  with  a 
polar  distribution  have  been  used.  The  tests  for  axis  data 
with  either  axially  symmetric  bipolar  or  axially  symmetric 
equatorial  distributions  are  also  given  in  the  text. 

The  usual  procedure  for  areal  analysis  of  fabric  data 
was  described  in  Chapter  1.  A  method  based  on  separate 
plots  of  dip  direction  and  dip  has  been  described  by  Piteau 
and  Russel  (1971).  The  cumulative  deviations  of  observed 
dip  directions  from  the  mean  dip  direction  were  plotted 
against  distance  along  the  exposed  face.  A  similar  plot  was 
produced  for  dips.  From  these  plots  the  locations  at  which 
the  fabric  changed  could  be  determined,  and  structural 
regions  or  domains  thus  defined.  The  application  of  this 
technique  to  problems  of  characterizing  and  extrapolating 
joint  sets  for  engineering  purposes  has  been  discussed  by 
Piteau  (1973) .  Another  technique,  proposed  by  Elliot 
(1965)  ,  involves  the  use  of  "isogonic"  maps.  These  are  maps 
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showing  contours  of  equal  angles  or  isogons,  the  angle  that 
is  contoured  being  chosen  according  to  the  nature  of  the 
data,  for  example,  dip  of  surfaces  or  pitch  of  lineations. 
Regions  cf  homogeneous  fabric  are  identified  on  the  isogonic 
map  as  regions  of  low  density  of  isogons,  whereas  high 
isogon  density  indicates  highly  variable  fabric. 

Areal  variation  of  two-dimensional  orientation  data  has 
been  studied  by  applying  normal  and  von  Mises  distribution 
theory  (Agterberg  and  Briggs,  1963).  Two-dimensional  vector 
trend  analysis  has  been  used  by  Agterberg,  Hills  and  Trettin 
(1967)  in  the  analysis  of  paleocurrent  indicators,  and  by 
Roberts  and  Mark  (1970)  in  the  analysis  of  till  fabrics.  A 
computer  program  for  trend  analysis  of  two  dimensional 
vector  data  has  been  given  by  Fox  (1967).  The  moving 
average  approach  to  the  analysis  of  paleocurrent  indicators 
was  taken  by  Sturm  (1971). 

In  this  chapter  we  describe  a  computer-based  procedure 
for  analyzing  areal  variation  of  three  dimensional  fabric 
data  that  offers  the  following  advantages. 

(1)  The  area  is  divided  by  the  geologist  into  sampling 
units.  Selective  retrieval  of  the  data  and  all  data 
manipulation  are  performed  by  the  computer. 

(2)  The  data  are  treated  throughout  in  a 
three-dimensional  framework,  so  that  it  is  not  necessary  to 
treat  horizontal  and  vertical  angles  in  separate  analyses. 
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(3)  A  statistical  test  is  provided  that  indicates  those 
sampling  units  within  which  the  scatter  in  the  orientations 
of  the  measured  structures  making  up  the  fabric  element  is 
significantly  large,  thus  providing  a  means  for  identifying 
locally  disturbed  fabrics. 

(4)  Subfabrics  of  the  sampling  units  are  compared  by 
means  of  a  statistical  test  for  homogeneity,  so  that 
decisions  are  made  on  a  quantitative  basis,  and  results  are 
objective  and  reproducible.  A  computer  program  HOMO  has 
been  written  to  implement  both  of  these  tests. 

(5)  Fabric  diagrams  for  the  sampling  units  are  produced 
by  the  computer;  a  computer  program  WNDPL0T3  has  been 
written  to  produce  these  diagrams  on  the  line  printer. 

(6)  Since  all  the  laborious  manual  operations  including 
data  retrieval  are  performed  by  the  computer,  combination, 
testing  and  re-combination  of  the  sampling  units  can  be 
performed  rapidly  even  when  many  observations  are  involved. 

In  addition  to  these  advantages,  a  new  display 
technique  has  been  devised.  This  consists  of  a  map  on  which 
are  displayed  the  mean  orientations  for  the  sampling  units.# 
A  given  orientation  is  displayed  on  the  map  as  a  line  whose 
direction  and  length  are  those  of  a  line  drawn  on  an 
equal-area  projection  from  the  centre  of  the  projection  to 
the  point  representing  the  given  orientation.  Either  the 
mean  orientations  for  the  sampling  units  or  the  individual 


. 
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observations  can  be  displayed.  The  display  can  be  made  to 
show  either  true  orientations  or  deviations  from  an  overall 
mean.  These  deviations  may  be  thought  of  as  the  new 
orientations  after  rotation  to  make  the  overall  mean 
vertical.  A  program  MAP  has  been  written  to  produce  the 
display  on  the  Calcomp  drum  plotter.  So  that  the  display 
can  be  used  in  conjunction  with  an  equal-area  point  diagram, 
the  program  NPPL0T1  has  been  written  to  produce  equal-area 
point  diagrams  on  the  Calcomp  plotter. 

First,  multisample  tests  based  on  the  models  described 
in  Chapter  3  are  presented  in  section  4.2.  These  tests, 
except  those  based  on  Fisher's  model,  are  introduced  here 
for  the  first  time  to  fabric  analysis.  In  the  case  of  the 
Dimroth- Watson  distribution,  we  have  generalized  the 
two-sample  tests  given  by  Watson  (1965)  and  Mardia  (1972)  to 
the  multisample  case.  Following  this,  in  section  4.3,  the 
computer-based  procedure  is  described  in  detail,  including 
the  new  display  technique.  Section  4.4  presents  a  worked 
example,  and  section  4.5  summarizes  the  chapter. 
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4.2  Multisample  Tests 

4.2.1  Fisher's  Model 

The  following  multisample  tests  based  on  the  Fisher 
distribution  were  given  by  Mardia  (1972).  Let  A^  , 
i=1,...,nj#  j=1,...,q,  be  q  independent  random  samples  of 
sizes  n^  drawn  from  Fisher  distributions  with  concentration 
parameters  k  ^ .  Let  n=  En^,  the  length  of  the  mean 

vector  of  the  sample  and  m  the  length  of  the  mean  vector 

of  the  combined  sample. 

A  test  for  the  homogeneity  of  concentration  parameters 
may  be  performed  as  follows. 

Case  1.  m<0.44.  Under  the  null  hypothesis 

£4.1]  E  g  Jh  J2  -  (  EgjhjiVEgj  - 

where 

g  j  =  (5/3)  (Hj-5)  and  h  ^  =  arcsin  (3m^/5^ )  . 

Case  2.  0 . 44<m<0. 67 .  The  same  statistic  as  £4.1]  where  now 

g^=  0-39356/  (n^  -4)  and  hj  =arcsin  {  (m^O.  17595) /1 . 02903}  . 

Case  3.  m>0.67.  Under  the  null  hypothesis 

[4.2]  [g  In  { (n~En ^/gi-Ec^  In  £n^  (l-m^  ) /g  j)  ]/ (1+h)  -  X*^ 

where  now 

g  ^=2  (n  1)  >  g  =  2(n-g)  and  h=  (  E  g  j-*-g-* )  /  £3  (g- 1)  }  . 
Assuming  that  k^k  £=..  ..=k  =k  <k  unknown),  a  test  for  the 
equality  of  means  may  be  performed  as  follows. 

Case  1.  m>0. 32.  In  this  case 


£4.3] 


( 1-  1/5k2)  (n-q)  <g-m)/{(q-1)  (1-g)} 


F2q-2, 2n-2q 
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where  g  =  En^m^/n  and  k  is  given  by 

a  a 

coth(k)  -  1/k  =  m 

which  is  solved  using  the  table  in  Mardia  (1972,  p.322)  and 
which,  fcr  m>0.9,  becomes 

a 

k  =  (l-m)-i. 

[4.3]  is  the  approximation  given  by  Watson  and  Williams 
(1956)  with  the  addition  of  the  correction  factor  for  small 

A 

k.  If  m>0.67,  the  term  in  k  can  be  omitted. 

Case  2.  m<0.32.  In  this  case 

A  ^ 

[4.4]  (1-k2/15*3q/2nk2 )  (3n)  (g2-m2)  CT  %22q-2 

A 

where  again  g=  En^m^/n  and  k  is  as  before.  If  n  is  small, 

A 

this  approximation  is  satisfactory  if  k  is  not  near  0  or  1; 

A 

if  n  is  large  the  term  in  k  can  be  omitted. 


While  Mardia  (1972,  p.270)  gave  the  null  distribution 
of  [4.2]  as  chi-square  with  2q-2  degrees  of  freedom,  we  have 
used  chi-square  with  q-1  degrees  of  freedom  for  the 
following  reason.  Mardia* s  test  is  based  on  Bartlett's  test 
for  equality  of  variances  of  samples  from  normal 
distributions  (Mardia,  1972,  p.166).  Now  Bartlett's  test 
statistic  is  an  expression  for  21nX  involving  estimates  of 
population  parameters  where  X  is  the  likelihood  ratio  for 
the  alternative  and  hypothesis  models.  The  test  depends  on 
the  fact  that  as  n  increases  without  limit  the  distribution 
of  21n  X  approaches  the  chi-square  distribution  with  df 
degrees  of  freedom,  where  df  is  the  difference  between  the 
number  of  parameters  in  the  alternative  model  and  the  number 
of  parameters  in  the  hypothesis  model  (Fraser,  1958, 


94 


p-255-260) »  In  this  case  the  alternative  model  consists  of 
g  samples  with  different  means  and  different  dispersions, 
and  the  hypothesis  model  consists  of  q  samples  with 
different  means  but  the  same  dispersion,  so  the  difference 
between  the  numbers  of  parameters  is  g-1,  and  21n  \  is 
asymptotically  distributed  as  chi-square  with  q- 1  degrees  of 
freedom.  In  order  to  verify  this,  20  samples  of  10  points 
each  were  generated  from  a  Fisher  distribution  with  k=50 
(using  the  program  SAMPLEGEN  documented  in  Appendix  1)  ,  and 
the  statistics  [4.2]  and  [4.3]  were  computed  using  the 
program  HOMOl.  This  procedure  was  performed  10  times.  The 
ten  values  of  the  two  statistics  are  given  in  Tables  3  and 
4,  with  the  results  of  tests  of  fit  to  the  null  distribution 
given  by  Mardia.  The  statistic  [4.3]  for  homogeneity  of 
means  fitted  the  F  distribution  with  2q- 2=38  and  2n-2g=360 
degrees  of  freedom  (Table  3).  However,  the  statistic  [4.2] 
for  homogeneity  of  concentration  parameters  was  consistently 
much  too  small  to  fit  the  chi-square  distribution  with 
2q-2=38  degrees  of  freedom.  The  values  of  the  statistic 
[4.2]  were  compared  with  the  chi-square  distribution  with 
q- 1  =  1 9  degrees  of  freedom;  the  values  fit  this  distribution 
(Table  5) • 

The  above  multisample  tests  based  on  Fisher's  model 
have  been  implemented  in  the  program  HOMOl  documented  in 
Appendix  1. 
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4,2.2  Dimroth-Watson's  Model 

Bipolar  Case 

Mardia  (1972)  has  given  the  result 

2k(n-m3)  tr  X*n-2 

for  the  bipolar  case  of  the  Dimroth- Watson  model ,  where  Jc  is 
the  concentration  parameter,  n  is  the  sample  size  and  m^  is 
the  largest  eigenvalue  of  the  matrix  T  defined  in  Chapter  3. 
We  use  this  result  to  derive  a  test  for  the  equality  of 
concentration  parameters  of  two  samples.  For  two  samples  of 
sizes  n^  and  n2  from  populations  with  concentration 
parameters  and  k2  we  have 

2k1(n1-m31)  cr  x*n^2 

2ic2  ^n2“m32^  "  X^g-2 

where  m31  and  m  32  are  the  largest  eigenvalues  of  T  for 
samples  1  and  2.  If  k^kg  ve  obtain  bF  division 

£••51  ^2-2)^- m31)/(ni-2)  (n2-m32)  2  ^^-2 

which  can  be  used  to  test  the  equality  of  k^  and  kg.  For 

more  than  two  samples,  the  maximum  F-ratio  (Hartley,  1950) 

A  A 

can  be  used.  If  q  samples  yield  estimates  k^,...,^,  the 

A 

ratio  of  the  largest  to  the  smallest  k  ^  is  referred  to 
tables  in  David  (1952)  using  the  average  of  the  degrees  of 
freedom  for  the  two  samples  (Hartley,  1950). 

To  test  the  equality  of  the  means  of  two  samples 
assuming  equality  of  concentration  parameters,  Mardia  (1972) 
has  given  the  statistic 


' 
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[4.6]  (n-4)  (m^  +  m^-my/2  (n-m^-m^)  -  F2,n-4 

where  m^  ,  m  32  and  m  3  are  respectively  the  largest 
eigenvalues  o£  T  for  sample  1,  sample  2  and  the  combined 
sample ,  and  n^  +  n^  Continuing  to  follow  the  analysis  of 
variance  analogy  (Watson,  1965),  we  generalize  [4.6]  to  the 
case  of  g  samples  to  obtain 

[4.7]  (n-2q)  (  Ei3j-ffl3)/(2q-2)  (n-  L  m^)  -  F2q-2,n-2q 

where  Z  means  the  sum  for  j=1,...,q. 


Girdle  Case 

Watson  (1965)  gave  the  result 

2km  ^  -  ^n-2 

For  the  girdle  case  of  the  Dimroth-Watson  distribution  with 
parameter  k,  where  is  the  smallest  eigenvalue  of  T.  As 

before,  we  use  this  result  to  obtain  the  test  for  equality 
of  concentration  parameters  of  two  populations: 

[4.8]  (n2-2)  m11/(n1-2)  m12  -  ^-^V2 

where  mu  and  m^  are  the  smallest  eigenvalues  for  samples  1 
and  2  respectively.  Again,  the  maximum  F-ratio  can  be  used 
when  there  are  more  than  two  samples. 

The  test  for  equality  of  means  of  two  populations  was 
given  by  Watson  (1965)  as 

[4.9]  (n-4)  (m1-mu-i»12)/2(">11  +  "11^  =  f2,n-4 

where  m  is  the  smallest  eigenvalue  of  T  for  the  combined 
sample  and  n-n^.  Again  we  extend  this  result  to  the  case 

of  q  samples  to  obtain 
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[4.  10]  (n-2q)  (mr£mlj)/(2q-2 )  <  L  m^)  ~  V2.n-2q 

where  m  ^  is  the  smallest  eiqen value  of  T  for  the  j sample 
and  £  means  the  sum  for  j=1#...,q. 


4.3  Computer-Based  Procedure 

The  procedure  is  illustrated  by  the  flow  diagrams  in 
Figures  29  to  35.  The  data  representing  the  isolated  fabric 
element  whose  areal  variation  is  to  be  studied  are  placed  in 
a  separate  data  file  by  retrieval  from  the  master  data  file 
using  program  KEY4.  The  program  DATFIX1  ensures  that  every 
observation  is  associated  with  a  set  of  coordinates  and  that 
the  observations  on  each  traverse  appear  in  the  file  in 
order  of  increasing  distance  from  the  traverse  origin.  The 
program  TRVLSTl  then  generates  a  list  of  the  traverses  that 
is  used  by  several  other  programs.  The  first  program  to  use 
the  information  in  this  traverse  file  is  the  program  MAP3 , 
which  produces  a  map  of  the  traverses  on  the  plotter  (Figure 
29) .  This  map  includes  the  number  of  observations  on  each 
traverse.  Note  that  only  those  traverses  are  shown  on  which 
observations  were  made  that  appear  in  the  retrieved  data 
file  currently  undergoing  areal  analysis;  also  that  the 
number  cf  observations  shown  for  each  traverse  is  the  number 
of  observations  made  on  the  traverse  that  appear  in  that 
data  file. 


At  this  stage  the  data  file  is  processed  by  the 
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characterization  program  M0DEL1  described  in  Chapter  3,  so 
that  a  complete  statistical  summary  of  the  data  is  available 
(Figure  30B) .  If  the  data  are  found  to  fit  one  of  the  model 
distributions  the  areal  analysis  procedure  is  still  worth 
while,  since  it  will  reveal  areas  of  high  variability  or 
large  deviations  from  the  mean.  At  this  point  various 
displays  can  be  produced  of  all  the  data,  including 
equal-area  projections  both  of  points  and  of  point  density, 
and  a  map  showing  locations  and  orientations  of  individual 
observations  (Figures  32  and  34) .  On  this  map  the  geologist 
outlines  the  sampling  units  that  are  to  serve  as  the  basic 
units  in  the  analysis.  The  analysis  can  be  re-started  at 
this  point  in  case  redefinition  of  sampling  units  is  found 
necessary. 

Once  the  sampling  units  have  been  outlined,  the 

information  is  made  available  to  the  computer  in  the  form  of 
traverse  numbers  and  observation  numbers  on  each  traverse. 
The  program  GRPKEY1  then  produces  a  "key"  for  each  sampling 
unit,  that  is,  a  list  of  the  numbers  of  the  lines  in  the 
data  file  that  contain  the  observations  in  each  sampling 

unit  (Figure  30) .  The  sampling  units  are  immediately 

processed  one  at  a  time  by  the  program  GfiPSTAl,  that 
computes  a  mean  direction  and  a  concentration  parameter  for 
each  sampling  unit.  These  results  are  formed  into  the 
sample  data  file  (called  the  group  data  file  in  Figure  31) 
and  fcrm  the  basis  for  the  statistical  tests  for 

homogeneity.  At  this  point  displays  of  the  sample  means  are 


/  !  n  7  »>i  1  it  k  .  •  r  • 
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produced,  both  equal-area  projections  and  a  map  showing 
locations  and  orientations  of  the  sample  means  (Figures  32 
and  34) .  This  map  also  shows  the  concentration  parameters 
for  the  samples. 

HOM0 1  is  an  interactive  program  that  tests  for 
homogeneity  of  both  mean  directions  and  concentration 
parameters  (Figure  31).  It  does  this  initially  for  all  the 
samples.  Since  homogeneity  of  concentration  parameters  must 
be  established  before  tests  for  mean  directions  are  valid, 
the  first  task  of  the  geologist  carrying  out  the  analysis  is 
to  instruct  the  program  HCM01  to  delete  from  the  analysis 
those  samples  that  have  large  dispersions.  After  each 
deletion  the  remaining  concentration  parameters  are  tested 
for  homogeneity.  When  homogeneity  of  concentration 
parameters  is  achieved,  a  list  of  deleted  samples  is 
obtained  so  that  these  can  be  flagged  for  further  field 
investigation,  since  these  are  the  locations  at  which  the 
fabric  is  exceptionally  variable. 

At  this  point  a  new  map  of  the  remaining  sample  means 
can  be  produced  that  shows  the  deviations  of  the  sample 
means  from  the  overall  mean  (Figures  33  and  34) .  A  similar 
display  of  the  individual  observations  can  also  be  produced. 
Any  tendency  for  the  orientations  to  deviate  from  the 
overall  mean  in  a  consistent  way  in  one  part  of  the  area 
should  be  apparent  in  this  display.  Tentative  homogeneous 
regions  can  now  be  outlined  on  this  map,  and  tested  using 
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the  pregrain  HOMOI  by  giving  the  program  the  numbers  of  the 
sampling  units  to  be  grouped  (these  numbers  are  shown  on  the 
map  of  sample  means) .  Sampling  units  can  be  added  to  or 
deleted  from  the  tentative  grouping  one  at  a  time  and 
homogeneity  retested  until  the  largest  possible  homogeneous 
regions  have  been  established.  Finally,  a  complete 
characterization  is  produced  for  each  homogeneous  region  by 
the  program  MODEL 1  (Figure  35). 


4.4  Worked  Example 


Analysis  of  Fording  Domain  3  Bedding 


Initial  statistics  on  this  data  indicate  good 
clustering  (Fisher  concentration  parameter  68),  but  Kuiper's 
test  indicates  lack  of  axial  symmetry  (statistic  =  1.845, 
95%  point  =  1.747).  This  asymmetry  is  however  not  marked 
enough  to  be  detected  by  Bingham's  tests  based  on  the 
eigenvalues  (statistic  =  3.0,  95%  point  =  6.0). 


The  poles  to  the  observed  bedding  surfaces  are 
displayed  on  an  egual— area  projection  in  Chapter  3  (Figure 
25) .  A  second  projection  (Figure  36)  shows  the  poles  after 
rotation  to  bring  the  mean  pole  (trending  253  degrees, 
plunging  73  degrees)  into  a  vertical  position.  (Note  that 
the  axis  of  rotation  is  not  horizontal.  The  rotation  is 

eigenvectors,  in  order  of  increasing 


such 


that  the 
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eigenvalues,  are  brought  into  coincidence  with  the  reference 
directions  north,  east  and  down.) 

These  poles  are  also  displayed  on  a  map  (Figure  37) . 
Each  point  on  the  map  indicates  the  location  of  an  observed 
bedding  surface; the  line  drawn  from  the  point  has  the  same 
azimuth  and  length  as  a  line  drawn  on  Figure  25  from  the 
centre  of  the  projection  to  the  projected  pole. 

The  traverses  on  which  the  data  were  collected  are 
shown  on  the  traverse  map  (Figure  38) .  The  observations 
were  grouped  into  32  samples,  with  the  number  of 
observations  in  the  samples  ranging  from  6  to  12;  most 
samples  contained  from  8  to  10  points.  Fisher  concentration 
parameters  for  the  samples  range  from  14  to  2112  (Table  6). 
The  rotated  sample  means  are  shown  in  Figure  39.  The  test 
for  homogeneity  of  concentration  parameters  initially  gave 
Xz  =  314.97,  df=62»  The  probability  of  obtaining  a 

statistic  equal  to  or  greater  than  this  value  under  the  null 
hypothesis  is  less  than  0.005.  The  test  of  sample  means 
initially  gave  F  =  12.09,  df=42,368,  probability  less  than 
0.005,.  This  clearly  demonstrates  that  the  part  of  the 
Fording  mine  designated  "Domain  3"  is  not  a  domain  with 
respect  to  the  bedding  subfabric- 
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4.5  Summary  and  Conclusions 

The  computer-based  procedure  for  analyzing  the  areal 
variation  of  an  isolated  fabric  element  described  here 
offers  substantial  advantages  over  conventional  procedures. 
Definition  of  domains  is  based  on  statistical  tests  for 
homogeneity  of  mean  directions  and  dispersions  of  local 
samples,.  This  method  has  the  advantage  that  locations  of 
exceptionally  high  fabric  variability  or  exceptionally  large 
deviations  from  the  mean  orientation  are  identified. 
Definition  of  domains  is  assisted  by  a  new  display  that 
simultaneously  shows  the  location  and  three-dimensional 
orientation  of  either  an  individual  observation  or  a  local 
mean  direction.  The  display  can  be  made  to  show  deviations 
from  an  overall  mean  direction,  so  that  regions  of 
consistent  deviation  from  the  overall  mean  can  be  readily 
identified  as  distinct  fabric  domains.  An  interactive 
program  and  completely  computerized  data  retrieval  and 
handling  system  permit  testing  of  tentative  domains  to  be 
carried  out  very  rapidly,  especially  if  a  time-sharing 
computer  system  is  available.  This  means  that  several 
hypotheses  about  the  data  can  be  investigated  statistically 
without  large  investments  of  time  for  data  retrieval  and 
plotting  of  diagrams. 

Multisample  tests  for  axis  data  based  on  the  axis 
statistics  are  introduced  here  for  the  first  time  to  fabric 
£  da 1 y s i s .  Both  bipolar  and  eguatorial  distributions  of  axes 


. 
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can  now  jbe  tested. 


1 


: 
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5  Summary 

5.1  General  Statement 

This  thesis  describes  an  approach  to  fabric  analysis 
that  differs  from  the  conventional  approach  in  making  much 
more  extensive  use  of  numerical  methods  in  all  stages  of  the 
procedure.  The  techniques  recommended,  many  of  them  new  or 
applied  for  the  first  time  in  fabric  analysis,  are 
summarized  below. 


5.2  Data  Collection,  Storage  and  Retrieval 

Since  computer  processing  is  a  prerequisite  to  the  use 
of  numerical  methods  with  other  than  very  small  data  files, 
data  must  be  stored  in  machine-readable  form  and  should  be 
collected  on  field  data  sheets  designed  with  that  end  in 
view.  It  is  extremely  important  that  analytical 
requirements  be  anticipated  in  the  design  of  the  data 
collection  scheme.  Data  storage  and  retrieval  programs 
suitable  for  use  with  fabric  data  are  provided. 
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5.3  Data  Display  -  Contoured  Orientation  Diagrams 

The  equal-area  projection  showing  contours  of  point 
density  is  the  most  important  display  tool  for  fabric  data. 
An  attempt  was  made  to  gain  a  more  complete  understanding  of 
this  display. 

Conventional  techniques  of  calculating  the  density  of 
sample  points  at  a  location  on  the  unit  sphere  represent  a 
special  case  of  the  class  of  statistical  density  estimators 
known  as  the  "Parzen"  class  of  density  estimators.  The 
special  case  is  that  in  which  the  weighting  function  is  a 
rectangular  function  having  a  constant  value  for  distances 
less  than  a  specified  distance  and  zero  elsewhere.  The 
specified  distance  corresponds  to  the  radius  of  the  counting 
circle  in  methods  conventionally  used  by  geologists.  This 
estimator  is  here  referred  to  as  the  "constant-area" 
estimator. 

The  existing  theory  of  density  estimators  suggests  two 
principal  avenues  of  exploration:  (1)  the  use  of  Parzen 
estimators  with  other  than  rectangular  weighting  functions, 
and  (2)  the  use  of  estimators  belonging  to  the  other 
principal  class  so  far  considered  in  the  mathematical 
literature,  that  is,  the  "k-nearest-neighbour"  estimators. 
Accordingly,  two  new  methods  of  estimating  population 
density  on  the  sphere  have  been  investigated  in  the  present 
work:  one  is  a  k-nearest-neighbour  estimator  referred  to 

here  as  the  "constant-proportion”  estimator,  the  other  a 
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Parzen  estimator  that  uses  as  a  weighting  function  Fisher's 
probability  density  function,  referred  to  here  as  the 
"Fisher-weighted"  estimator.  This  function  was  chosen 
because  it  leads  to  an  estimate  algebraically  identical  to 
that  obtained  by  assuming  data  points  to  have 
Fisher-distributed  errors;  this  has  been  shown  to  be  a 
reasonable  assumption. 

Theoretical  investigation  of  these  estimators 
(including  the  conventional  estimator)  applied  to  unimodal 
Fisher-distributed  populations  leads  to  exact  equations 
relating  the  peak  density  of  the  population  (and  hence  the 
concentration  parameter)  to  the  mean  estimated  peak  density. 

Experimental  investigation  of  the  estimators  at 
off-peak  as  well  as  peak  locations  -  again  using  only 
unimodal  Fisher-distributed  populations  -  reveals  basic 
differences  between  the  two  classes  of  estimators  in  the  way 
in  which  the  properties  of  the  estimator  vary  with  distance 
from  the  population  peak.  In  particular,  the  coefficient  of 
variation  of  the  Parzen  estimators  tends  to  change  from  very 
small  to  very  large  with  increasing  distance  from  the 
population  peak.  The  coefficient  of  variation  of  the 
cons ta nt— proportion  estimator,  on  the  other  hand,  tends  to 
be  much  less  extreme,  and  in  fact  decreases  slightly  with 
increasing  distance  from  the  peak. 

The  two  principal  functions  of  the  orientation  diagram 
in  fabric  analysis  are,  first,  to  suggest  a  type  of  model 
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for  the  population,  and,  second,  to  provide  estimates  of 
model  parameters.  We  have  here  considered  the  problem  of 
estimating  the  concentration  parameter  of  a 

Fisher-distributed  point  cluster  in  a  multimodal  population* 
The  density  function  of  the  population  consists  of  a  sum  of 
scaled  Fisher  distributions,  and  is  subjected  to  smoothing 
and  random  variation  to  produce  the  empirical  density 
function  which  is  seen  on  the  density  diagram. 

The  exact  relationships  obtained  in  the  present  study 
permit  the  concentration  parameter  to  be  estimated  from  the 
smoothed  (unsealed)  peak  density  of  a  Fisher-distributed 
point  cluster  for  any  estimator  of  the  types  investigated. 
The  problem  of  scaling  can  be  solved  either  by  integrating 
on  the  density  diagram  (graphically  or  by  simple  numerical 
summation)  or  by  using  a  measure  of  shape  that  is  related  to 
the  smoothed  peak  density  but  is  independent  of  scaling. 


5.4  Numerical  Characterization 

Isolated  fabric  elements  should  be  characterized  by 
statistics  appropriate  to  the  data  type:  techniques  for 
characterizing  axially  symmetric  clusters  of  vectors  are 
already  in  use  in  fabric  analysis;  techniques  for 
characterizing  axially  symmetric  clusters  of  axes,  axially 
symmetric  girdles  of  axes,  and  axially  asymmetric  clusters 
or  girdles  of  axes  have  not  been  used  in  fabric  analysis  but 
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are  available  and  are  described  here.  For  such  statistics 
to  be  meaningful  the  adequacy  of  the  characterization  must 
be  tested  using  combinations  of  data  displays  and 
statistical  tests,  both  parametric  and  non- parametric. 
Multi-sample  tests  are  available  for  all  the  axially 
symmetric  cases  -  clusters  of  vectors,  clusters  and  girdles 
of  axes.  Most  of  the  tests  described  for  axis  data  are  new 
to  fabric  analysis.  A  new  technique  is  described  for 
producing  smoothed  rose  diagrams  as  an  aid  to  checking  the 
adequacy  of  characterization.  New  procedures  are  described 
for  characterizing  and  testing  weighted  observations. 

5.5  Areal  Analysis 

The  computer-based  procedure  for  analyzing  the  areal 
variation  of  an  isolated  fabric  element  described  here 
offers  substantial  advantages  over  conventional  procedures. 
Definition  of  subfabric  domains  is  based  on  statistical 
tests  for  homogeneity  of  mean  directions  and  dispersions  of 
local  samples.  This  method  has  the  advantage  that  locations 
of  exceptionally  high  fabric  variability  or  exceptionally 
large  deviations  from  the  mean  orientation  are  identified. 
Definition  of  domains  is  assisted  by  a  new  display  that 
simultaneously  shows  the  location  and  three-dimensional 
orientation  of  either  an  individual  observation  or  a  local 
mean  direction.  The  display  can  be  made  to  show  deviations 
from  an  overall  mean  direction,  so  that  regions  of 


j'c 
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consistent  deviation  from  the  overall  mean  can  be  readily 
identified  as  distinct  fabric  domains.  An  interactive 
program  and  completely  computerized  data  retrieval  and 
handling  system  permit  testing  of  tentative  domains  to  be 
carried  out  very  rapidly,  especially  if  a  time- sharing 
computer  system  is  available.  This  means  that  several 
hypotheses  about  the  data  can  be  investigated  statistically 
without  large  investments  of  time  for  data  retrieval  and 
plotting  of  diagrams. 
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"FISHER"  ST  ATI  STICS 
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1545.26  0.9  854  6 


DIRECTION  COSINES  TR  PL 

-0.  08043  -0.27388  C.  95839  253.6  73.4 


DD  DP 
73.6  16.6 


FISHER  CONFIDENCE  RADII 

K  95%  99% 

68.327  1.0  1.2 


TEST  OF  UNIFORMITY  ABOUT 
KUIPER'S  STATISTIC  = 
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2.559  95%  POINT  =  1.747 


Table  1,  output  from  Program 
Bedding 


MODEL  1  for  Fording  Domain  3 
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sample 

n 

!i 

m2 

«■> 

m  „ 

030 

90 

0.1471 

0.3421 

0.5108 

100 

49 

0.1495 

0.2803 

0.5702 

110 

50 

0.2792 

0.3009 

0.4198 

Table  2. 

Sample  sizes 

and  eigenvalues 

for  the 

till  sample 
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value 

cumulative 

observed 

proportions 

theoretical 

difference 

0.71 

0-  1 

0.102 

0.002 

0.83 

0.  2 

0.245 

0.045 

0.90 

0.3 

0.354 

0.054 

0.93 

0.4 

0.405 

0.005 

0.96 

0.5 

0.467 

0.033 

1.06 

0.6 

0.625 

0.025 

1.09 

0.  7 

0.662 

0.038 

1.14 

0«  8 

0.727 

0.  073 

1.  14 

0.9 

0.732 

0.  168 

1.27 

1.0 

0.863 

0.  137 

Table  3„  Kolmogorov  test  of  fit  of  10  values  of  the 
statistic  [4,3]  to  the  F-distribution  with  38  and  360 
degrees  of  freedom.  Maximum  deviation  =  0.168.  Critical 

value  for  a  5%  test  =  0.410.,  Null  hypothesis  accepted. 
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cumulative  proportions 


value 

observed 

theoretical 

dif  ferei 

06a.  14 

0.1 

0.000 

0-  100 

10.42 

0.2 

0.000 

0.200 

13..54 

0.3 

0.000 

0.300 

16.84 

0.4 

0.001 

0.399 

16.95 

0.5 

0.001 

0.499 

1 7  o  4  9 

0.6 

0.002 

0.598 

24  o  6  2 

0.7 

0.  046 

0.654 

2  5.,  4  6 

0.8 

0.060 

0.  740 

28.76 

0.9 

0.140 

0.760 

30.38 

1.0 

0.  194 

0.806 

Tabls  4.  Kolmogorov  test  of  fit  of  10  values  of  the 
statistic  [4.2]  to  the  chi-square  distribution  with  38 
degrees  of  "freedom.  Maximum  difference  =  0.806.  Critical 
value  for  a  5%  test  =  0.410.  Hull  hypothesis  rejected. 
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value 

cumulative 

observed 

proportions 

theoretical 

difference 

06..  14 

0.  1 

0.00 

0.  10 

10-42 

0.2 

0.06 

0.  14 

13-54 

0.3 

0.19 

0.11 

16..84 

0.4 

0.40 

0.00 

16-95 

0.5 

0.4  1 

0.09 

17-49 

0.6 

0.44 

0.16 

24.6  2 

0.7 

0.83 

0.  13 

25«  46 

0.8 

0.85 

0.05 

28.76 

0.9 

0.96 

0.03 

30.38 

1-0 

0.95 

0.05 

Table  5-  Kolmogorov  test  of  fit  of  10  values  of  the 
statistic  [4.2]  to  the  chi-square  distribution  with  19 
degrees  of  freedom.  Maximum  difference  =  G.16.  Critical 

value  for  a  5%  test  =  0.410.  Null  hypothesis  accepted. 
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roup 

number  of 

concentration 

traverse 

umber 

observations 

parameter 

numbers 

01 

08 

068 

159,73,74,161 

02 

08 

597 

75 

03 

10 

056 

162,163 

04 

07 

157 

64,149, 150 

05 

09 

016 

65,151 

06 

10 

228 

66, 152, 67 

07 

11 

524 

153 

08 

15 

124 

68 

09 

08 

779 

154 

10 

06 

226 

69 

1 1 

08 

114 

155 

12 

08 

227 

70 

13 

12 

106 

136,54 

14 

07 

019 

137 

15 

10 

208 

55  (1-10) 

16 

10 

217 

55  (1  1-20) 

17 

09 

178 

55  (21-29) 

18 

09 

526 

55  (30-31)  ,  138,145 

19 

07 

191 

63,147 

20 

07 

191 

135 

21 

10 

532 

53  (1-10) 

22 

09 

04  4 

53  (11-19) 

23 

09 

072 

53  (20-28) 

24 

08 

014 

52 

25 

12 

158 

158,72 

26 

1 1 

195 

50,132(1-5) 

27 

10 

048 

132  (6-10)  ,51  (1-5) 

28 

10 

280 

51  (6-7)  ,133,  134 

29 

10 

112 

156 

30 

10 

255 

71 

31 

08 

365 

157 

32 

1  1 

061 

*  •*  5 

Table  6.  Sizes,  concentration  parameters,  and  traverse 
numbers  for  local  samples.  Fording  Domain  3  bedding. 
Numbers  in  parentheses  indicate  which  observations  from  a 
traverse  are  included  for  split  traverses. 
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Figure  1.  Procedure  for  Computer- Assisted  Fabric  Analysis 
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Figure  2„  Program  Inputs  and  Outputs  for  Data  Collection, 
Storage,  Retrieval,  Display  and  Characterization  Operations 


118 


Figure  3 


Simplified  Flow  Diagram  for  Program  KEY4 
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0,  deg  rees 


Figure 


5.  Fisher's  Density  Function  for  k-50 


r  cm 
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Parameter  Curves  for  the  Constant- Area  Estimator 


Figure  6. 
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Parameter  Curves  for  the  Constant-Proportion 


Figure  7. 
Estimator 
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b 

Figure  8-  Parameter  Curves  for  the  Fisher-Weighted 
Estimator 
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Figure  9-  Location  Curves  for  the  Constant-Area  Estimator 
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Figure  10 
Estimator 


Location  Curves  for  the  Constant-Proportion 
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b 

Figure  11.  Location  Curves  for  the  Fisher-Weighted 
Estimator 
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Location  Curves  for  Gamma  =  25  degrees 


Figure  12 
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Figure  13.  Location  Curves  for  Gamma  =  20  degrees 
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Figure 
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k  p  =50  n  =  100 
LOCATION  CURVES  r  =  15° 
□  CONSTANT -AREA 
A  CONSTANT-PROPORTION 
O  FISHER-WEIGHTED 


4.  Location  Curves  for  Gamma  =  15  degrees 


J 

2 


1 

130 


1 

0 

J 

kp  =  50  n  =  100 

LOCATION  CURVES  y  =  10° 

□  CONSTANT- AREA 

>  -2 
o 

A  CONSTANT-  PROPORTION 

cT 

O  FISHER-WEIGHTED 

o 

_ 1 

1 

1  — 1 

0  1 

b 

Figure  15„  Location  Curves  for  Gamma  =  10  degrees 


-1 


2 


131 


b 

Location  Curves  for  Gamma  =  5  degrees 


Figure  16» 
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Location  Curves  for  Gamma  =  0  degrees 


Figure  17.. 
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Figure  20.  Effect  of  Sample  Size  on 
Estimator 
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Figure  23 


The  Model-Building  Process 
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(C)  equatorial  or  ffirdle  (D)  uniform 


Figure  24„ 


Spherical  Point  Distributions 
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Figure  25.  Lower-Hemisphere  Equal-Area  Projection  of  297 
Poles  to  Bedding  in  Domain  3  at  the  Fording  Coal  Mine 
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Displays  for  Sample  30; 


90  observations 


Figure  26« 
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Figure  27.  Displays  for  Sample  100;  49  observations 
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Displays  for  Sample  110;  50  observations 


Figure  28. 
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Figure  29*.  Procedure  for  Areal  Analysis  -  Part  1 


145 
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Figure  30.. 


Procedure  for  Areal  Analysis  -  Part  2 
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Figure  3 1 » 


Procedure  for  Areal  Analysis  -  Part  3 
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Figure  32«  Procedure  for  Areal  Analysis 


Part  4 
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Figure  3 3«  pcocsducG  for  ArGdl  Analysis 


Part  5 
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Figure  34„ 


Procedure  for  Areal  Analysis 


Part  6 
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35„  procedure  for  Areal  Analysis  *  Part  7 
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M1 


m2 


Figure  36«  Lower- Hemisphere  Equal-Area  Projection  of  297 
Poles  to  Bedding  in  Domain  3  at  the  Fording  Coal  Mine  after 
Potation  to  Make  the  Mean  Vertical 


152 


-M 

(tJ 

a>  4J 

h  a 

9  Q) 
cn-H 
-H  M 
Pm  O 


37.  Fording  Bedding  Data  -  Locations  and 
ions  of  Observed  Discontinuities 
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Figure  38-  Fording  Bedding  Data  -  Traverses  with  Numbers  of 
Observations  (above)  and  Traverse  Numbers  (below) 
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Figure  39.  Fording  Bedding  Data  -  Deviations  of  Domain 
Means  from  Overall  Mean 
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Glossary  of  Symbols 


A  symbol  is  followed  by  a  brief  indication  of  its  meaning 
and  then  by  the  number  of  the  page  where  it  is  defined  or 
first  used  in  the  text.  Except  for  the  standard  symbols, 
lower  case  Roman  letters  denote  scalars,  upper  case  Roman 
letters  denote  vectors  or  matrices,  and  Greek  letters  denote 
angles.  a 

Note:  A*  is  the  transpose  of  A.  k  is  an  estimate  of  k. 


a 

a 

o 

b 

c 


area  of  counting  circle.  23. 

the  area  of  the  counting  circle  corresponding  to  a 

value  v  of  v.  36. 
o 

* 

a  measure  of  the  bias  of  d  as  an  estimator  of  d. 

31. 

constant  defined  in  context. 


d 


d 


d  * 
s 


d 


♦ 

v 


g 

h 

k 


population  density  at  a  point.  23. 

the  peak  density  of  a  unimodal  Fisher-distributed 
population  after  smoothing  by  the  Fisher- weighted 
density  estimator.  34. 

the  peak  density  for  a  single  Fisher-distributed 
point  cluster  in  a  multimodal  population  after 
smoothing  by  the  Fisher-weighted  density 
estimator.  35. 

peak  density  of  a  unimodal  Fisher-distributed 
population  after  smoothing  by  the  constant— area 
density  estimator.  32. 

the  peak  density  for  a  single  Fisher-distributed 
point  cluster  in  a  multimodal  population  after 
smoothing  by  the  constant-area  density  estimator. 
33. 


the  peak  density  of  a  unimodal  Fisher-distributed 
population  after  smoothing  by  the 

constant-proportion  density  estimator.  35. 

the  peak  density  for  a  single  Fisher-distributed 
point  cluster  in  a  multimodal  population  after 
smoothing  by  the  constant-proportion  density 
estimator.  36. 

defined  in  context.  92. 

defined  in  context.  92. 

concentration  parameter  of 


a  probability 
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distribution.  27. 

k  concentration  parameter  of  a  Fisher-distributed 

p  point  cluster.  32. 

kw  concentration  parameter  of  the  Fisher  density 

function  used  as  a  weighting  function  in  the 

Fisher- weighted  density  estimator.  34. 

k^kgfko  the  concentration  parameters  of  Bingham's 

distribution.  65. 


1 

^max  '^min 


m 


m^  g  m  m 
n 


Kuiper's  test  statistic.  71. 

maximum  and  minimum  differences  between 
theoretical  and  empirical  cumulative 

distributions.  71. 

the  length  of  M-  62. 

the  eigenvalues  of  T  in  increasing  order.  63. 
number  of  points  in  sample.  23. 

proportion  of  population  inside  the  counting 
circle.  24. 

proportion  of  population  point  cluster  1  inside 
the  counting  circle.  33. 

the  value  of  p  corresponding  to  a  value  vQ  of  v. 
29. 


proportion  of  a  population  consisting  of  several 
Fisher-distributed  point  clusters  in  point  cluster 
1.  33. 


q  number  of  samples.  92. 

r  uniform  random  number  on  the  interval  (0,1).  36. 

t  number  of  points  inside  counting  circle.  23. 

t  largest  value  of  t  for  several  counting  locations, 

max  25. 

tl'--t360  relative  frequencies.  81. 

a  distance  from  centre  of  projection  to  the 

projected  point  (0,0)  •  80. 

u  radius  of  projection.  80. 

o 

v  coefficient  of  variation.  24. 
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V 

required  coefficient  of  variation  of  d.  29. 

w  () 

weighting  function-  23. 

wi ’ " *  wn 

weights  associated  with  observed  unit  vectors. 
75- 

x,y  *  z 

direction  cosines.  36- 

vy? 

coordinates  on  a  projection  of  the  projected  point 

(e,0).  so. 

A 

any  unit  vector-  62. 

M 

the  mean  vector  of  a  sample  of  unit  vectors.  62. 

3 

the  eigenvectors  of  T  *  in  order  of  increasing 
eigenvalues.  63. 

P 

observed  point.  27. 

V--Pn 

a  sample  of  observed  points-  28. 

Q 

true  position  of  the  observed  point  P.  27., 

T 

variance-covariance  matrix  of  the  components  of  a 
sample  of  unit  vectors.  63. 

U 

a  fixed  unit  vector.  63. 

U,V,H 

orthogonal  fixed  unit  vectors.  65. 

x,y,z 

orthogonal  unit  vectors  denoting  fixed  reference 
directions-  36 

p 

angle  between  traverse  and  planes.  in. 

Y 

angle  between  centre  of  population  and  counting 
location.  37. 

0 

spherical  coordinate.  36- 

e 

angle  between  two  vectors;  spherical  coordinate. 
23;  36. 

ec 

radius  of  counting  circle.  23. 

e± 

2 

the  distance  from  the  centre  of  a  Fisher 
distribution  at  which  the  density  is  half  the  peak 
density.  47. 
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Standard 

Symbols 

e 

2.71828... 

exp() 

power  of  e - 

Fdfl  ,df  2 

the  F-distribution  with  df 1  and  df2  degrees  of 
freedom. 

F 

a 

the  upper  100  tx  %  point  of  the  F—distribution. 

i 

index. 

j 

index. 

In  {) 

natural  logarithm. 

Pr() 

probability  of  an  event. 

a 

the  upper  tail  probability  of  a  probability 

distribution. 

tr 

3-  14  159265, . . 

£ 

summation. 

x2 

af 

the  chi-square  distribution  with  df  degrees  of 
freedom. 

d£  degrees  of 
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SECTION  1:  PROGRAM  IDENTIFICATION 


PROGRAM  TITLE: 

Building  of  Structural  Data  File  from  Field  Data 


PROGRAM  CODE  NAME: 
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WRITER: 

John  Ramsden 


ORGANIZATION: 
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DATE: 
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ABSTRACT: 

The  program  converts  field  data  on  discontinuities  in  a  rock  mass 
collected  on  straight  line  traverses  to  a  form  suitable  for  subsequent 
processi ng. 

The  data  is  collected  as  described  in  the  Discodat  (1973)  manual. 

For  each  traverse,  the  program  merges  the  information  recorded  on  the 
type  1  form  with  that  recorded  on  the  type  2  forms  to  produce  a  set  of 
i denti cal -format  data  records,  one  for  each  observed  discontinuity. 

SECTION  2:  ENGINEERING  DOCUMENTATION 

NARRATIVE  DESCRIPTION: 

The  Traverse:  The  information  from  the  type  1  input  record  is 
placed  in  the  output  record  unchanged,  with  the  following  exceptions. 

The  grid  co-ordinates  and  elevation  of  the  traverse  origin  are  converted 
to  the  basic  unit  of  the  survey  using  the  scale  factors  read  from  the 
parameter  card.  They  are  not  placed  in  the  output  record.  The  reference 
direction  is  not  placed  in  the  output  record. 

The  0 bservations : 

(a)  Sequence  Number 

The  observations  in  a  traverse  are  numbered  sequentially  in 
the  order  of  input.  This  number  is  placed  in  the  output  record. 

(b)  Distance 

The  distance  of  the  point  of  observation  from  the  traverse 
origin  is  converted  to  the  basic  unit  of  the  survey  using  the  traverse 
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scale  factor.  The  converted  distance  is  placed  in  the  output  record. 

(c)  Grid  Co-ordinates  and  Elevation 

The  program  computes  the  grid  co-ordinates  and  elevation  of 
each  point  of  observation  as  follows.  The  distance  from  the  traverse 
origin  to  the  point  of  observation  is  resolved  into  northward,  eastward, 
and  upward  components,  which  are  added  to  the  co-ordinates  and  elevation 
of  the  traverse  origin.  The  three  co-ordinates  are  rounded  to  the  near¬ 
est  integer  for  output. 

(d)  Orientation 

The  program  computes  the  dip  direction  of  the  discontinuity  by 
adding  the  recorded  azimuth  to  the  reference  direction.  Direction 
cosines  of  the  downward-di rected  normal  to  the  discontinuity  are  com¬ 
puted,  multiplied  by  10000  and  rounded  to  the  nearest  integer  for  out¬ 
put.  An  upper  limit  of  9999  is  imposed. 

(e) '  Terzaghi  Correction  Factor  (Weight) 

The  Terzaghi  correction  factor  compensates  for  bias  due  to  the 
orientation  of  the  traverse.  Its  value  is  the  reciprocal  of  the  cosine 
of  the  angle  between  the  traverse  and  the  normal  to  the  discontinuity. 

It  is  truncated  at  an  angle  of  85  degrees,  and  in  order  to  provide  in¬ 
teger  output  is  multiplied  by  ten  and  rounded  to  the  nearest  integer. 

The  number  placed  in  the  output  record  thus  has  a  range  of  from  10  to  115. 
This  factor  may  be  used  as  a  weighting  factor  in  subsequent  processing. 

(f)  Linears 

Direction  cosines  of  a  linear  feature  are  computed  from  the  dip 


direction  and  dip  of  the  discontinuity  and  the  pitch  of  the  linear  as 


,,  -.10  erij  1'0  [-. 


171 


follows.  If  the  strike  vector  S  is  rotated  counterclockwise  about  the 
upward-directed  normal  to  the  discontinuity  through  an  angle  equal  to 
the  pitch  of  the  line  L,  it  will  then  coincide  with  that  line.  The 
matrix  RM  that  will  perform  this  rotation  is  obtained  by  calling  the 
subroutine  ROTMAX.  The  direction  cosines  of  the  line  are  then  found  by 
the  matrix  multiplication, 

RM  x  S  +  L 

which  is  performed  by  the  SSP  subroutine  GMPRD. 

METHOD  OF  SOLUTION: 

Borehole  Data:  The  orientations  of  discontinuities  observed  in 
drill  cores  are  computed  as  follows.  Mutually  perpendi cular  axes 
U,  V,  W  are  defined  with  respect  to  the  core,  so  that  U,  V,  W  are  a 
righthanded  set;  W  is  parallel  to  the  core  axis  and  is  positive  in 
the  direction  of  drilling;  U  lies  in  the  vertical  plane  containing  W 
and  is  positive  upward.  If  W  is  vertical,  the  direction  of  U  is 
arbi trary . 

The  orientations  of  the  discontinuities  in  the  core  are  measured 
with  the  core  oriented  so  that  U,  V,  W  are  parallel  to  the  standard 
reference  axes:  north,  east,  down,  respectively.  To  obtain  the  ori¬ 
ginal  orientations  of  the  discontinuities,  we  must  apply  to  the  re¬ 
corded  orientations  the  rotation  that  will  bring  the  standard  reference 
axes  into  coincidence  with  the  original  orientations  of  U,  V,  W.  To 
be  able  to  perform  this  rotation  it  is  necessary  only  to  know  the  orien- 
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tation  of  the  borehole  and  the  direction  of  drilling. 


If  the  trend  and  plunge  of  the  boreholes  are  T,  P  then  the  original 
directions  of  U,  V,  W  are 


U 

V 

W 

Trend 

T 

T+90° 

T 

Plunge 

P-90° 

0 

P 

Direction  Cosines 

1 

cosT  sinP 

-si  nT 

cosT  cosP 

2 

sinT  sinP 

cosT 

sinT  cosP 

3 

-cosP 

0 

si  nP 

If  a  3  x  3  identity  matrix,  whose  columns  are  the  reference  axes, 
is  pre-mul tipi ied  by  M,  the  direction  cosine  matrix  in  the  above  table 
whose  columns  are  U,  V,  W  the  result  will  be  M.  Thus,  pre-multiplication 
of  a  column  vector  by  M  performs  the  required  rotation.  For  each  dis¬ 
continuity,  the  program  calls  the  SSP  subroutine  GMPRD  to  pre-mul ti ply 
by  M  the  column  vector  consisting  of  the  direction  cosine  of  the  normal 
to  the  discontinuity  in  its  recorded  orientation.  The  resulting  column 
vector  contains  the  direction  cosines  of  the  normal  in  its  original 
orientation.  From  these  are  computed  the  original  dip  direction  and  dip. 

PROGRAM  CAPABILITIES: 

Data  Restrictions:  Not  more  than  99  observations  may  be  processed 
as  one  traverse.  There  is  no  limit  to  the  number  of  traverses  that  may 
be  processed  in  one  run.  All  other  data  restrictions  are  as  described 


,  1 3  He  9  jit  •  >riJ  >  i'  b  6  bf’s  -  9rt:f  "' 
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in  the  Discodat  (1973)  manual. 

DATA  INPUTS:  The  input  data  are  fully  described  in  the  Discodat 
(1973)  manual,  except  for  the  case  of  borehole  data  which  should  be 
recorded  as  follows. 

A  reference  direction  of  999  indicates  borehole  data.  To  record 
borehole  data,  draw  a  reference  line  along  the  side  of  the  core,  on 
that  part  that  was  the  top  of  the  core  in  its  original  orientation. 

Now  orient  the  core  so  that  its  axis  is  vertical  (drilling  direction 
downward)  and  the  reference  line  is  on  the  north  side.  Measure  the 
dip-direction  and  dip  of  each  discontinuity  in  this  orientation,  re¬ 
cording  these  in  the  'azimuth'  and  'dip'  fields.  Record  the  trend  and 
plunge  of  the  borehole  in  the  ' traverse-trend '  and  'traverse-plunge' 
fields . 

If  the  drilling  direction  was  vertically  downward,  draw  the  reference 
line  on  the  original  north  side  of  the  core,  and  enter  zero  in  the  'tra¬ 
verse  trend'  field  and  90  in  the  'traverse  plunge"  field.  If  the 
direction  was  vertically  upward,  draw  the  reference  line  on  the  original 
south  side  of  the  core  and  enter  zero  in  the  'traverse  trend'  field  and 
-90  in  the  'traverse  plunge'  field. 

Input  data  records  are  of  two  types.  Each  type  1  record  contains 
information  pertaining  to  one  traverse,  and  is  followed  immediately  by 
the  type  2  records  for  that  traverse ’,  each  type  2  record  contains  informa¬ 
tion  pertaining  to  one  observation.  The  format  of  the  type  1  record  is 


■ 


as  follows.  (A)  indicates  alphanumeric  data. 


Col umns 

Contents 

7-13 

Traverse  Identification  (a) 

15-19 

Elevation 

21-22 

Domain  (A) 

24-26 

Formation  (A) 

28-31 

Pi t  Bench  Level  (A) 

33-35 

Pi t  Bench  Location  (A) 

37-42 

Local  Grid  Easting 

44-49 

Local  Grid  Northing 

51-53 

Traverse  Trend 

55-57 

Traverse  Plunge 

59-62 

Traverse  Length 

64 

Traverse  Scale 

66-67 

Number  of  Observations 

69-71 

Reference  Direction 

Special  conditions: 

A  reference  direction  of  999  indicates  borehol 

data. 

The  format  of  the  type  2  record  is  as  follows. 
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Col umns 

Contents 

7-10 

Di stance 

12-13 

Type  (A) 

15-17 

Azimuth 

19-21 

Dip 

23 

Size  A 

25 

Spacing  (A) 

27 

Filling  1  (A) 

29 

Filling  2  (A) 

31 

Water  (A) 

33-35 

Waves 

37-38 

Line  Type  (A) 

40-42 

Line  Pi tch 

44-46 

Lithology  (A) 

48-49 

Hardness  (A) 

Special  conditions:  If  'distance'  is  blank,  zero  or  negative  the  dis¬ 
tance  is  taken  as  zero.  If  any  one  of  the  co-ordinates  and  elevation 
fields  on  the  type  1  input  record  is  blank  or  zero,  the  co-ordinates 
of  all  observations  on  the  traverse  are  set  equal  to  those  of  the  tra¬ 
verse  origin. 

In  addition  to  the  above  data  cards,  one  parameter  card  is  required 
containing  scale  factors  for  the  grid  co-ordinates  and  elevation,  in 
the  following  format. 


■  '  f  at  :  \  : 


i :  io  anor  vised' 


r V P  >j  vn  not  J6t  f;  o  gn  n  >  r  ;• 


J  >  not  g.  .  wef  a  1  i  : 


1?6 


Columns 

Contents 

1 

Scale  Factor  for  Grid  Co-ordinates 

2 

Scale  Factor  for  Elevation 

These  scale  factors  are  determined  in  the  same  way  as  the  traverse 
scale  factors,  as  described  on  page  A8  of  the  1973  Discodat  manual. 

Program  Options:  None. 

Printed  Output :  Each  type  1  input  record  is  printed  as  it  is  read. 

,Q.!-.h.e r  Outputs :  The  converted  data  records,  one  for  each  observation, 
are  normally  written  on  magnetic  tape.  The  record  format  is  as  follows. 


Columns 

Contents 

1 

'  D ' 

2-  8 

Traverse  Identification 

9-10 

Domai n 

11-13 

Fo rmation 

14-17 

Pit  Bench  Level 

18-20 

Pit  Bench  Location 

21-23 

Traverse  Trend 

24-26 

Traverse  Plunge 

27-30 

Traverse  Length 

31-32 

Number  of  Observations 

33 

Traverse  Scale 

34-35 

Sequence  Number  of  Observation 
within  Traverse 

36-39 

Di stance 

- 


Columns 


Contents 


40-45 

Easting 

46-51 

Northing 

52-56 

El evation 

57-58 

Type 

59-61 

Dip  Direction 

62-64 

Dip 

65-69 

a 

70-74 

b 

75-79 

9 

80-82 

Wei ght 

83 

Si  ze 

84 

Spacing 

85 

Filling  1 

86 

Filling  2 

87 

Water 

88-90 

Waves 

91-92 

Line type 

93-97 

1 

98-102 

m 

103-107 

n 

108-110 

Li thol ogy 

111-112 


Hardness 
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a,  b,  g  are  the  direction  cosines  of  the  downward-directed  normal 
to  the  discontinuity.  1,  m,  n  are  the  direction  cosines  of  the  linear. 
If  no  linear  was  observed,  1,  m,  and  n  are  set  to  zero. 


. 

FLOW  CHART 
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qmoa 


180 


compute 
orientation 
of  discontinuity 

— — r;~ 


compute 
orientation 
of  discontinuity 
by  rotation 


compute 

Terzaghi 

correction 

factor 


compute 
integer 
values  for 
output 


compute 
direction 
cosines 
of  line 


write 

output 

record 


0 


set  line  variables 
blank  or  zero 

'  fr  ‘ 
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SAMPLE  RUN:  Parameter  Card 


10 


Data 


*0207/ 
*  02  0  V 
*020  V 
*02 1 0/ 
*0211/ 


*0101/2 DM  000  2/0 9  4  2 1/r 1/OP 
*020  1/  24/JN/1  30/+60/J/ 

*020  2/  zB/J N/C 40/+P7/J/ 
*020  2/  42/JK/r  S5/-2  C/K/ 

*0204/  7 4 / J N / 1  4  7 / ♦■  0 ° / J / 

*  G  2  C  5  /  1  °  5/  S  ?  /  1  4  r  / f  0  C /.T/ 

*  02  0  0/  1  0  5/  3  R  / 1  4  5  /  +  q  0/ J / 

1  1  0/ 3  2/1 50/  +  7  C/J/ 

1  15/S2/1  50/+-7  0/0/ 

1  2  3/JN/1  5  3  /+  8  5/J  / 

1 55/JN/1 5C/+F5/J/ 

1  8  0/ J  N  / 1  7  5  /  +  8  0  /  J  / 

*0212/  1 P 1/SR/1 Or/+6 R/J/ 
*0212/  223/3P/1 2  0/+  6  0/K/ 
*02  14/  223/52/1  20/* 6  0/K/ 
*0215/  22B/JN/1 10/-20/J/ 
*021 6/  300/JN/  90/- 2 0/K/ 
*02  1  7/  3  2  8/  S2/1  5  V*  B  5/ J  / 
*02  1  8/  3  2  8/32/1  3 0/+  8 5/ J / 
*0219/  333/3K/1 40/+77/J/ 
*0220/  333/SP./1  40/+77/I/ 
*0221/  340/SF/1 45/+B C/J/ 
*0222/  340/SP/1 45/+80/J/ 
*02  23/  3 87/JN/1 5C/  +  85/K/ 
*0224/  41^/32/  12/-73/K/ 
*0225/  4 16/JN/1 39/+69/K/ 
*0228/  417/JN/152/  32/J/ 
*0227/  4-3 4/ J K/1  5  0/  7  4/J/ 
*0228/  4P3/JN/  82/-14/L/ 
*02  2  4/  5  2  0/CN/  4V-17V 
*02  30/  5  22/CN/  Gr-/-15/K/ 
*02 3 V  613/JN/  24/-80/J/ 
*0232/  597/ JN/1 27/  54/J/ 
*0231/  585/ J N / 1 5 5 /  76/K/ 
*02  34/  6  1  4/  J  N / 1  5  5  /  8  C/K/ 
*0235/  647/JN/1 23/- 1 P/L/ 
*0238/  68C/JK/142/  8 C/K/ 
*02  37/  6 8 9 / J N /  3 2/- 8  5/K/ 
*0238/  7  1  4/JN/1 4°/  87/K/ 
*0239/  7  4  7/ J  M /  10/-75/K/ 
*02  4  0/  7  r'  O/CN/1  5C  /  7  4/K/ 
*02  4  1/  7  8  8 / C K / 1  50/  7  4/K/ 
*0242/  793/52/143/  87/K/ 
*0243/  7°R/SP/143/  C7/K/ 
*0244/  R24/S2/1 48/  R1/K/ 
*0245/  824/38/146/  8 1/K/ 
*0246/  8 46/S8/1 47/-77/J/ 
*0247/  846/52/1 47/-77/J/ 
*0248/  8  56/ JN/1  3  8/  6  0/J/ 
*02  4  9/  8  87/ J II  /  IP/- 8  0/K/ 
*02  50/  0 7 7 / C N / 1  37/  55/J/ 
*0251/  87 8/CM/ 1  37 /  55/J/ 
*0252/  90  2/J4/1  4  0 /  80/J/ 
*0253/  929/JN/  10/  70/J/ 
*0254/  930/JN/  29/-85/J/ 
*0255/  9 52/ JN/1 50/  80/J/ 
*0256/  902/JM/1  10/  7  5/ J / 
*0257/  968/JN/1 25/  75/1/ 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


4/5920/  /  73  383/  9 6 4 3 2/2 2 2/- 0 2/ 1  C0 1/  /68/312/ 

/  /  /3/1 7 1/FD/ 160/SDS/25/ 

/3/184/FD/ 155/SD5/R5/ 

/I/  /  /  / 3  D3/K  5/ 

/ 3 / 1 6  3 / F D /  90/S D 3/25/ 

/ 2/ 1 7  2/FD/1 6  9/505/ 2  5/ 

/2/  /5  V/  8  3/3  05/2  5/ 

/3/1 7 1/FD/ 18 0/505/25/ 

/  3/  /GV/  80/505/28/ 

/i/  /  /  / S  L) 5 /  R 5 / 

/  3/172/FD/  7  C/S 05/25/ 

/3/1 7  4/FD/  16C/S03/R5/ 

/ 3/  /GV/  85/S03/R5/ 

/M/B/4/1 73/FD/160/SD3/P5/ 

/M/B/4/  /GV/  95/503/25/ 

/ 13  /  M  /  4  /  /  /  /  S  0  3  /  F.  5  / 

/  /  /3/163/FD/180/SDS/F5/ 

/M/  /4/171/FD/180/SDS/R5/ 

/ M /  / 4 /  /GV/  90/303/25/ 

/3/1 72/^0/170/503/ 25/ 

/ 3 /  /GV/  85/SDS/25/ 

90/SD5/R5/ 

90/SD3/R5/ 

/SDS/P  5/ 

RO/S 03/25/ 

5/SDS/R  5/ 


/V 
/  / 


/ 

/ 

/ 

/ 

/ 


/V 
/  / 


/M  / 
/  / 
/  / 
/  / 


/  / 

/B/ 
/  / 


/3/168/FD/ 

/V  /GV/ 

/3  /  /  / 

/V  /GV/ 

.  .  /3/17C/2D/ 

/F/  /3/168/FD/175/SD3/P5/ 
/F/  /3/162/FD/  84/SDS/25/ 
/  4 /169/FD/155/S03/R5/ 
/ 4 /I  8  6/FD/1 8C/SD3/R5/ 
/4/166/wD/180/SDS/S3/ 
/  3/  /  /  / S  D 5 / R  5 / 

/M/h/4/173/FD/  4/SD3/R5/ 

/  /  / 3/  1  6 h /YD/  9/ SO 3/ El 5/ 
/3/1 64/FD/  2/503/25/ 

/  4  /  /  /  /  /  / 

/4 / 1 6 7/FD/ 130/SD3/R5/ 
/3/U  0/FD/17C/SD3/R5/ 
/3 / 1 7 1/FD/ 175/50S/R5/ 
/ 3/ 177/FD/1 53/303/25/ 
/U/  /  /  /S 05/ R  5/ 

/4/  /  /  /GVL/31/ 

/3/171/2 0/ 174/SDS/F5/ 
/ 3/  /GV/  84/505/25/ 
/3 /I 75/FD/ 1 7 5/SD5/R 5/ 
/ 3/  /GV/  6 5/S 05/ R 5/ 
/8/M/2/171/FD/19  0/305/25/ 
/ G / M / 2 /  /GV/  75/303/25/ 

/  /  /3/ 1 7  3/ F 0/ 18  0/ SDS/P 5/ 
/3/1S9/F 0/112/5DS/R5/ 
/ 3/16  2 / F  0/ 1 3 0 / S 05 / R 5/ 
/ 3 /  /  /  /GVL/S1/ 

/3 /  /  /  /S  PS/2  5/ 

/2/184/FD /165/S D3/R5/ 
/ 3 / 1 7 5/ F 0/18 B/ 503/ R 5/ 
/3/  /  /  /S03/R  5/ 

/  3  /  /  /  /  5  05/ R  8/ 

/3/  /  /  /SD5/R5/ 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


2  DM0002 
20 MOO 02 
2DMA002 
2 DM0002 
2  DM0002 
2DM0902 
2  DMOOO  2 
2DM0002 
2  DMOOO  2 
2DM0002 
2  DMOOO  2 
2  DMOOO  2 
2DM0002 
2 DMOOO 2 
2DM0002 
2 DMOOO 2 
2 DMOOO 2 
2DM00C2 
2  DMOOO 2 
2  DM  00  0  2 
2DM00C2 
2D MOD 02 
2  nM00  C  2 
2  DM00  02 
2DM0002 
2DMC002 
2 DMOOO 2 
2DM0002 
2  DMOOO  2 
2DM00C2 
2 DMOOO 2 
2  DM  00  0  2 
2  DMOOO  2 
2 DM0002 
2DM00C2 
2  0  MOO  0  2 
2 DMOOO 2 
2 DMOOO 2 
2DM0002 
2  DMOOO  2 
2  DMOOO  2 
2 DMOOO 2 
2  DMOOO  2 
2DM00C2 
2  DM 000  2 
2  D  M  0  0  0  2 
2 DMOOO 2 
2  DM  00  C  2 
2 DMOO 02 
2  DM0002 
2  DM0002 
2DM09C2 
2 DMOOO 2 
2DM0002 
2  DMOOO  2 
2  DM000  2 
2DM0002 


v-  \  \  .)2  •  \S  *  ... 


. 


./ 


' 


182 


♦0258/ 

9SO/JN/140/  8  6/K/  / 

/ 

/V 

/ 

/ 

/SD3/R5/ 

2DM000? 

♦  025V 

9M1/JN/1 1 C /- 1 6/K /  / 

/ 

/2/ 

/ 

/ 

/SO 3/76/ 

2  DM000  2 

♦0250/ 

982/J1J/  7  r  /  -  8  5/ J/  / 

/ 

/ 3 / 1 70/FD/160/8D5/R5/ 

2DM00C2 

♦0281/ 

9V/JN/1  a  0/  ‘K/J/  / 

/ 

/3/163/FD/1P0/9ns/P5/ 

2DM0002 

*0262/ 

995/J  N/1 ^ 5/  9  C/J/  / 

/ 

/3/ 

/ 

/ 

/SD3/P5/ 

2  D  .1 0  0  0  2 

♦  C2  6V10C0/JN/  6  c/  - SC/I/  / 

/ 

/2/ 

/ 

/ 

/SDS/R5/ 

2  DM000  2 

♦026U/1CC1/JN/1 1 5/-05/K/  / 

/ 

/ 2/ 1 6  7/2 

D/180/SDS/K V 

20*10002 

*0265/ 

/BG/105/-2C/  /D/ 

/ 

/  / 

/ 

/ 

/SD3/R5/ 

2  DM0002 

*0266/ 

/EO/055/-2C/  /D/ 

/ 

/  / 

/ 

/ 

/5DS/R5/ 

2DM0D02 

*0267/ 

/BG/115/-1C/  /D/ 

/ 

/  / 

/ 

/ 

/sns/R5/ 

2  DM 00 0  2 

*0268/ 

/BG/  9 0 /- 2 0/  /D/ 

/ 

/  / 

/ 

/ 

/SDS/R5/ 

2DM0002 
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SECTION  3:  SYSTEM  DOCUMENTATION 

COMPUTER  EQUIPMENT: 

CPU: IBM  360  model  67;  32-bit  word. 

Memory:  IBM  2365-2;  1  million  bytes. 

PERIPHERAL  EQUIPMENT: 

IBM  1403N1  printers;  IBM  2501 -B2  card  readers;  IBM  2540  card 
reader/punch;  IBM  2301  drums;  IBM  3333  and  3330  disc  drives;  IBM  3420-5 
9-track  dual-density  tape  drives  (800/1600  bpi ) ;  IBM  2741  communications 
terminals;  IBM  3277  display  terminals;  Calcomp  770/665  drum  plotter 
(paper  width  29  5/16  inches;  pen  speed  2.25  inches  per  second;  increment 
sizes  0.0025  and  0.005  inches). 

OPERATING  SYSTEM: 

Michigan  Terminal  System;  a  time-sharing  vi rtual -memory  system. 


PROGRAM  LISTING: 
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VARIABLES: 

Input  variables : 
Parameter  card: 
GSCALE ,  ESCALE 


Type  1  card: 

AID 

IELEV ,  I EAST ,  INORTH 

ADOM 

AFM 

ABLVL 

ABLOC 

ITT,  ITP 

ALEN 

DSCALE 

NOBS 

IREF 

Type  2  card: 

IDIST 
ATYPE 
IAZ ,  IDIP 
ASIZE 
ASPAC 

AFILL1 ,  AFILL2 


scale  factors  for  grid  coordinates  and 
elevation  respectively. 

traverse  number  (A) 

elevation,  easting  and  northing  of  traverse 

origin 

domain  (A) 

formation  (A) 

bench  level  (A) 

bench  location  (A) 

trend  and  plunge  of  traverse 

length  of  traverse  (A) 

scale  factor  for  distance  of  traverse 

number  of  observations  on  traverse 

reference  direction 

distance  along  traverse 
discontinuity  type  (A) 
recorded  azimuth  and  dip 
size  code  for  discontinuity  (A) 
spacing  of  discontinuities  (A) 
filling  codes  (A) 
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AWAT,  AWAV 
LINTYP 
IPITCH 
ALITH ,  AHDN 

Output: 

LOOP 

JEAST,  JNORTH ,  JELEV 

IAZ ,  IDIP 

ICOSA,  ICOSB ,  ICOSG 

IW 

LINA,  LINB ,  LING 

Internal : 

NCD 

NOCOOR 

RELEV,  REAST,  RNORTH 

T,  P 


ST,  CT 


codes  for  water  and  waviness  (A) 
type  of  line,  if  any  (A) 
pitch  of  line 

codes  for  lithology  and  hardness  (A) 


counter  for  observations  on  each  traverse 
easting,  northing  and  elevation  of  point 
of  observation  rounded  to  integers 
dip  direction  and  dip  of  discontinuity 
direction  cosines  of  normal  to  discontinuity, 
times  10^  and  rounded  to  integers, 
terzaghi  correction  factor,  times  10  and 
rounded . 

4 

direction  cosines  of  linear,  times  10  and 
rounded  to  integers. 


counter  for  number  of  cards  read, 
flag  for  missing  coordinates  -  input 
elevation,  easting  and  northing  of  traverse 
ori gin . 

trend  and  plunge  of  traverse  -  radians;  trend 
and  plunge  of  normal  to  discontinuity  in 
radians;  dip  direction  and  dip  of  discontinuity 
in  degrees 

sine  and  cosine  of  trend  of  traverse 
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SP,  CP 

sine  and  cosine  of  plunge  of  traverse 

X,  Y,  Z 

direction  cosines  of  traverse 

RM 

rotation  matrix  to  rotate  reference  axes 

north,  east  and  down  into  the  axes  U,  V  and 

W,  where  W  is  the  borehole  direction  and 

V  is  horizontal 

DIST 

distance  from  traverse  origin 

SNORTH,  SEAST,  SELEV 

northing,  easting  and  elevation  of  point 

of  observation 

COSA,  COSB ,  COSG 

direction  cosines  of  normal  to  discontinuity 

VR 

vector  containing  direction  cosines  of 

normal  to  discontinuity  in  recorded 

orientation;  vector  containing  the 

direction  cosines  of  the  strike  vector. 

VT 

vector  containing  direction  cosines  of 

normal  to  discontinuity  -  true  orientation; 

vector  containing  direction  cosines  of  linear. 

CALPHA 

cosine  of  angle  between  normal  to  discontinuity 

and  traverse  or  borehole. 

W 

terzaghi  correction  factor  for  discontinuity 

TAX,  PAX,  ANG 

trend  and  plunge  of  axis  of  rotation  and 

angle  of  rotation,  in  radians,  to  rotate 

strike  vector  through  pitch  angle  into 

coincidence  with  linear. 

RM2 

rotation  matrix  to  rotate  the  strike  vector 

through  the  pitch  angle  into  coincidence  with 

the  linear. 
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Equivalences : 

COSA,  COSB  and  COSG  occupy  the  same  storage  locations  as  the 
vector  VT. 

Subroutines  and  Function  Subprograms: 

4 

Function  IDC(R):  takes  the  direction  cosine  R,  multiplies  it  by  10 
and  rounds  it  to  the  nearest  integer.  A  maximum  absolute  value  of  9999 
is  imposed.  The  result  is  returned  as  the  function  value. 

Subroutine  GMPRD :  from  the  SSP  subroutine  package  (IBM).  Multiplies 

two  matrices. 

Cal  ling  sequence: 

CALL  GMPRD  (A,B ,C,I  ,J ,K) 

The  J*K  matrix  B  is  premultiplied  by  the  I*J  matrix  A  and  the  result 
placed  -  the  I*K  matrix  C. 

Subroutine  DCAN :  included  in  subroutine  library  accompanying  these 
programs.  Calling  sequence 

CALL  DCAN  ( A,B ,G,I ,T,P ,  J ,K,N) 

The  vectors  T  and  P  of  angles  are  computed  from  the  vectors,  A,B,  and 
G  of  direction  cosines.  I  is  the  spacing  of  direction  cosines  -  A,  B 
and  G,  and  J  the  spacing  of  angles  in  T  and  P.  For  example,  if  J=2, 
output  angles  are  placed  in  T(l),  T(3),  T(5),  etc.  If  |K|=1,  trends  and 
plunges  are  computed;  if  |K|=2,  dip  directions  and  dips  assuming  the 
input  directions  are  normals  to  planes;  if  |K|=3,  strikes  and  dips  are 
computed.  If  K>0,  angles  are  returned  as  radians;  if  K<0,  angles  are 
returned  as  degrees.  N  is  the  number  of  directions  given. 


Subroutine  ROTMAT:  Accompanying  subroutine  library.  Computes  a 


rot-matrix  for  rotation  through  a  given  angle  about  a  given  axis. 
Calling  sequence: 

CALL  ROTMAT  (A,B,C,R) 

A,B,  and  C  are  the  trend  and  plunge  of  the  axis  of  rotation  and  the 
angle  of  rotation,  in  radians  R  is  the  rotation  matrix. 

DATA  STRUCTURES:  The  input  data  file  consists  of  unblocked  80- 
byte  records.  The  program  does  not  block  output  records.  Output  data 
records  are  112  bytes  long.  One  output  data  record  is  written  for 
each  type  2  input  record. 

STORAGE  REQUIREMENTS: 


Main  program 


4232 


Function  IDC 


416 


Subroutine  GMPRD 


680 


Subroutine  DCAN 


1344 


Subroutine  ROTMAT 


848 


Total 


7520  bytes . 


MAINTENANCE  AND  UPDATES:  None 


SECTION  4:  OPE  RATING  DOCUMENTATION 


OPERATOR  INSTRUCTIONS:  None 


OPERATING  MESSAGES:  None 
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CONTROL  CARDS: 

$RUN  *MOUNT  PAR=1234  9TP  *TAPE*  VOL=ABCDEF  FMT=FB( 5600 ,1  12)  RING=IN 
$RUN  *SOURCE*  1=*S0URCE*  5=*S0URCE*  6=*PRINT*  7=*TAPE* 

[parameter  card 

r 

•  data  cards 

• 

L 

$ENDFILE 

ERROR  RECOVERY:  No  special  procedures. 


RUN  TIME:  Approximately  20  seconds  CPU  time  per  1000  observations. 


■ 
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Ident i f icat ion 

Program  name: 

DATFIX1 

Program  title: 

Areal-analysis  package  -  data-file  conditioning 
program. 

Authcr : 

John  Ramsden 

Organization : 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date : 

5  October  1974 
Program  version  number: 

1 


Application 


Purpose : 


To 

suitable 


make  adjustments  to  a  data  file  so  that  it  is  in  a 
form  for  areal  analysis. 


Method : 


The 

fabric  data  are 

examine  d 

Those  o 

bservaticns  that 

have 

them  are 

"distributed”  un 

if  crmly 

algorith 

m  used  for  doing 

this  is 

l=length 

of  traverse 

n=number 

of  observations 

without 

x  (i) =dis 

tance  assigned 

to  t  he 

distance 

one  traverse  at  a  time, 
no  distance  associated  with 
along  the  traverse.  The 
as  follows. 

distance  recorded 
i-th  observation  without 


a=l/n 


-- 
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t-a/2 

x(i)=(i*a)-fc  : i=1 *2 , . .  .  n  then  ordered  by 

All  the  observations  on  data  for  that  traverse  are 

increasing  distance,  and  a  ~  traverse  is  then  read 

written  on  the  output  file.  The  next  traverse 

from  the  input  file  and  the  process  repeated. 

The  first  observation  with  zero  distance 

least  one  observation  is  not  recorded.  This 

first  observation  for  whic  traverse  are 

observation  and  all  those  that  follow  it  m  tne 

assumed  to  have  no  distance  recorded. 


Data  restrictions: 


Maximum  number  of  observations  in  one  traverse  is  ™0. 
Those  observations  without  distance  must  fellow 
distance  in  each  traverse. 


liming: 


each 


The 

100 


program  requires  about 
lines  in  the  data  file. 


2  seconds  of  CPU  time  for 


Implementation 


0 


riginal  installation. 


Organization: 
Computer : 

I/O  devices: 

Software : 


University  of  Alberta  Computing  Services. 

card^disc^tape,  ‘"typewriter  terminals  and 

Michigan1  germinal  System  (MTS),  a  virtual- 
storage  time-sharing  system. 


Source  language: 

10RTEAN  IV 

Subroutines  required:  None. 


Size : 

13518  bytes. 
Bequirements  for  I/O 


devices: 


■: 


. 
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I/O  read/ 
unit  write 
no . 


Maximum  FORTBAN 
record  length 
(bytes) 


device  suggested 

control  device 

statement  s 


1 

read 

112  ,  formatted 

none 

2 

write 

112  ,  formatted 

none 

6 

write 

37  ,  formatted 

none 

tape;  disc 
tape;  disc 
line  printer 


Usage 


Inpu  t : 

I/O  unit  1:  Input  data  file 

The  records  of  the  data  file  must  all  have  the  same 
length  and  format.  28  variables  are  read  in  each  record  with 
the  format 

(A4,I4,3A4, 213,14, A4,A1,I4, 216,15, 1  4  A4 ) . 

Those  fields  which  are  used  by  the  program  are  as  follows. 
Variable  no.  Columns  Specifications 


2 

005-008 

integer# 

traverse  number 

6 

021-023 

integer , 

trend  of  traverse 

7 

024-026 

integer , 

plunge  of  traverse 

8 

027-030 

integer , 

length  of  traverse 

1 1 

036-039 

integer , 

distance  along  traverse 

12 

040-045 

integer , 

easting 

13 

046-051 

integer , 

northing 

14 

052-056 

integer , 

elevation 

Output : 


I/O  unit  2:  Output  data  file 

Description  same  as  input  data  file. 

I/O  unit  6:  Statistics 

On  this  unit  the  program  writes  the  number  of  traverses 
processed  and  the  number  of  observations  that  were  without 

distance . 
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c 

DT  F  X 

10 

c 

DT  F  X 

20 

c 

AREAL- ANALYSTS  PACKAGE  -  PROGRAM  "DATPIX1". 

DT  F  X 

3  9 

c 

DTF  X 

40 

c 

DT  F  X 

50 

LOGICAL*!  END, FLAG 

D  T  F  X 

6  0 

INTEGER  K  (28,  100)  , TITLE  (30) 

DT  FX 

70 

REAL  DTR/1 . 745329E -2/ 

DTFX 

80 

c 

DT  F  X 

99 

1 

FORMAT (A4 , 1 4 , 3A4,2I3, I 4 , A4 , A1 , 14, 216, 15, 1 4  A  4) 

DTF  X 

100 

2 

FORM  AT  ('  T*  ,  30  A  4 ) 

DT  F  X 

110 

3 

FORMAT  (/•  PROGRAM  "PFIX"  STATISTICS'/'  NUMBER  OF  TRAVERSES: 

',14/  DT  F  X 

120 

*'  OBSERVATIONS  WITHOUT  DISTANCE:  ',15) 

DTF  X 

130 

c 

DT  FX 

140 

c- 

•READ  6  WRITE  TITLE 

DT  F  X 

150 

c 

DT  F  X 

160 

READ  (1,2)  TITLE 

DT  F  X 

170 

WRITE  (2 , 2  )  T  IT  LE 

DT  F  X 

180 

c 

DT  FX 

190 

c- 

•READ  FIRST  DATA  LINE 

DTF  X 

200 

c 

DT  FX 

210 

NTOT=0 

DT  F  X 

220 

NTRA V=0 

DT  F  X 

230 

READ  (1,1)  (K  (I,  1)  ,  1  =  1 , 2  8) 

DT  FX 

240 

END= . FALSE. 

DT  F  X 

250 

90 

J  =  2 

DT  F  X 

260 

c 

DT  F  X 

270 

c- 

-READ  NEXT  LINE 

DT  F  X 

28  0 

c 

DT  F  X 

29  0 

100 

READ  (1  ,1  ,END-200)  (K  (I,  J)  ,1  =  1, 28) 

DT  F  X 

300 

IF (K  (  2 , J )  . EQ . 0 ) GOTO200 

DT  F  X 

310 

IF  (K  (2  ,  J)  .  NE.  K  (2,  J-1)  )  GOTO210 

DT  F  X 

320 

J=J  +  1 

DT  F  X 

330 

GOTO100 

DT  F  X 

340 

c 

DT  F  X 

350 

c- 

-END  OF  TRAVERSE 

DT  FX 

360 

c 

DT  F  X 

37  0 

200 

END-. TRUE. 

DT  FX 

380 

210 

NO= J-1 

DT  F  X 

39  0 

c 

DTFX 

400 

c- 

-FIND  FIRST  OBSERVATION  WITH  DISTANCE  MISSING 

DTF  X 

410 

c 

DTFX 

420 

J=  1 

DTFX 

430 

FLA  G  = . FALSE. 

DTFX 

440 

260 

IF  (K  (1  1 ,  J)  .  EQ.  0)  GOTO300 

DTFX 

450 

FL A  G= . TRUE. 

DTFX 

4  6  0 

280 

J=J  +  1 

DTFX 

470 

IF  (J-NO)  260 ,260,400 

DTFX 

480 

c 

DTFX 

490 

3C0 

I F  (FLAG) GOTO360 

DTFX 

500 

GOTO 280 

DTFX 

510 

c 

DTFX 

520 

c- 

-COMPUTE  DIRECTION  COSINES  OF  TRAVERSE 

DTFX 

530 

c 

DTFX 

540 

360 

CONTINUE 

DTFX 

550 

TR=K  (6,  1)  *DTR 

DTFX 

56  0 

PL=  K  (7,1)*  DT  R 

DTFX 

57  0 

CP  =  COS  (PL) 

DTFX 

580 

DNO RTH  =  COS  (TR)  *CP 

DTFX 

590 

•y 


,-r 

: 


non  n  n  n 
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DEAST=SIN  (TR)  +  CP 
DK  LE  V  =  -S  I  N  (PL) 

- COMPUTE  NEW  DISTANCES  AND  COORDINATES 

NFIRST=J 

NZ=NO-NFIRST+1 

A  =  K  (8,  1)  /FLOAT  (NZ) 

D=A/2. 0 
1  =  0 

DO  380  J=N FIRST, NO 
NTOT=  N  TOT ♦  1 
1=1+1 
X= I* A- B 
K  (1  1  ,  J)  =  X  +  0 . 5 

K(12,J)=K(12,J)+X*DEAST+0.5 
K(13,J)=K(13,J)  +  X  *D  NO  RTH  +  0.5 
K(14,J)=K  (14, J)  +X*DELEV+0.5 
380  CONTINUE 

- WRITE  LINES  IN  ORDER  OF  INCREASING  DISTANCE 

400  CONTINUE 

NT  R  A  V=  NT  R  A  V  +  1 

DO  420  L  = 1 , NO 

MIN= 90990999 

DO  4  10  M=  1  ,  NO 

IF (K  (1 1,M)  . GE. MIN) GOTO410 

HI  N  =  K  (1 1  ,  M) 

J  =  M 

410  CONTINUE 

WRITE  (2,  1)  (K  (I,  J)  ,1  =  1,28) 

K (1 1  ,  J) =99999999 
420  CONTINUE 

IF (END) GOTO  60  0 
J  =  N  O  ♦  1 

DO-300  1=1,28 
500  K  ( I,  1)  =K  (I,  J) 

GOTO90 

600  WRITE  (6,3)  NTRAV,NTOT 
STOP 
END 


DTFX  600 
DTFX  610 
DTFX  620 
DTFX  630 
DTFX  640 
DTFX  650 
DTFX  660 
DTFX  670 
DTFX  680 
DTFX  690 
DTFX  700 
DTFX  710 
DTFX  720 
DTFX  730 
DTFX  740 
DTFX  750 
DTFX  760 
DTFX  770 
DTFX  780 
DTFX  790 
DTFX  800 
DTFX  810 
DTFX  820 
DTFX  830 
DTFX  840 
DTFX  850 
DTFX  860 
DTFX  870 
DTFX  880 
DTFX  890 
DTFX  900 
DTFX  910 
DTFX  920 
DTFX  930 
DTFX  940 
DTFX  950 
DTFX  960 
DTFX  970 
DTFX  980 
DTFX  990 
DTFX1000 
DTFX 1010 
DTFX 1020 
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/  / 

( 
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) 


/  read  and  / 

1  write  title;  / 

/  read  first  / 

/  data  line  / 

] 

END-*- false 

1 

[N 

FLAG-4-  true 

~ _ M 

loop  to  consider 
remaining 
observations 


compute  new 
distance  and 
coordinates 
for  this 
observation 
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Identification 

Program  name: 

EDKEY1 

Program  title: 

Areal-analysis  package  -  merging  of  keys. 

Author: 

John  Bamsden 
Organization: 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date  : 

1  October  1974 
Program  version  number: 

1 


Appl icat ion 


Purpose : 

To  read  several  keys  (sets  of  integers)  and  merge  them 
into  a  single  key. 


Method: 


The  program 
set  containing 
all  the  sets  in 
is  determined  by 
I/O  unit. 


reads  sets  of  integers  and  constructs  a  new 
all  the  integers  in  all  the  sets  read.  Not 
the  input  file  are  used.  Which  sets  are  used 
a  set  of  seguence  sumbers  read  from  another 


The  integers  in  the  input  sets  are  copied  seq 
into  the  output  set  as  they  are  read.  After  all 
sets  have  been  copied,  the  integers  in  the  output 
ordered  by  calling  the  subroutine  OFDERH . 


uentially 
the  input 
set  are 


t  check  for  duplicates.  An  integer 


The  program  does  no 
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will  appear  in  the  output  set  as  many  times  as  it  appears  in 
all  of  the  input  sets. 

Data  restrictions: 

Maximum  numter  cf  input  sets  to  be  included  is  100. 
Maximum  size  of  each  input  set  is  20  intecers.  Maximum  size 
of  the  output  set  is  1000  integers. 

Timing : 

The  program  required  1.3  seconds  of  CfU  time  to  merge 
11  keys  out  of  a  file  containing  32  keys.  Average  size  of 
the  keys  was  10  line  numbers. 


Implementation 


Original  installation: 

Organization:  University  of  Alberta  Computing  Services. 

Computer:  IBM  360  model  67  (1  024K)  . 

I/O  devices:  card,  disc,  tape,  typewriter  terminals  and 

display  terminals. 

Software:  Michigan  Terminal  System  (MTS)  ,  a  virtual- 

storage  timesharing  system. 


Source  language: 

FORTRAN  IV 

Subroutines  required: 

Subroutines  READK,  WRITER,  ORDERH  frcm  JR  subroutine 
library. 

Size : 

Total  program  size  including  all  required  subroutines 
is  5704  bytes. 

Requirements  for  I/O  devices: 
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I/O 
unit 
no . 

read/ 

write 

Maximum  FORTRAN 
record  length 
(bytes) 

device 

control 

statements 

suggested 

device 

1 

read 

80  formatted 

none 

tape;  disc; 
card  reader 

2 

read 

80  formatted 

none 

tape;  disc; 
card  reader 

7 

write 

80  formatted 

none 

tape;  disc; 
card  punch. 

Usage 


Input: 

I/O  unit  1:  input  sets. 

Ihe  format  of  each  set  is  as  written  ty  the  subroutine 
WRITER. 

I/O  unit  2:  numbers  of  those  input  sets  to  be  used. 

Same  format  as  the  input  sets. 

Output : 

I/O  unit  7:  output  set. 

written  by  subroutine  WHITER.  Same  format  as  input 

sets . 


*ifj 


-3. 


■ 
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c 

c 

C  AREAL- ANALYSIS  PACKAGE  -  PROGRAM  "DDKE Y 1 

C 

C 

INTEGER* 2  KEY  (20)  , MKEY  ( 1 0 0 0)  ,  IG N  ( 1  0 0 ) 

INTEGER  TITLE  (30)  ,OV (5) /5*'  '/,TITLE2(30) 

LE  N  =  0 

CALL  READK(2,TITLE2,NG,NGD,IGN,5410,6420) 

DO  4  0  1=1,5 
40  TITLE2  (10  +  1)  =OV  (I) 

IG  =  0 
IG  F  =  0 

60  IG  F  =  IG  F  +  1 

IF  (IGF.GT. NGD)  GOTO 3 00 
RO  IG=IG+1 

CALL  READK(1, TITLE, LENFIL,LENK, KEY, 8300,6400) 
IF  ( IG.  NE.  IGN  (IGF)  )  GOTO 80 
DO  200  J=1,LENK 
LEN  =  LEN  +  1 

200  MKEY  (LEN)  =  KEY  (J) 

GO TO 60 

300  CALL  ORDERH (MKEY, LEN) 

CALL  WRITEK(7,TITLE2,LENFIL,LEN,MKEY) 

STOP 

400  STOP  12 
410  STOP11 
420  STOP  1 0 
END 


DDK  Y  10 
DDKY  20 
DDKY  30 
DDKY  40 
DDKY  50 
DDKY  60 
DDKY  70 
DDKY  80 
DDKY  90 
DDKY  100 
DDKY  110 
DDKY  120 
DDKY  130 
DDKY  140 
DDKY  150 
DDKY  160 
DDKY  170 
DDKY  180 
DDKY  190 
DDKY  200 
DDKY  210 
DDKY  220 
DDKY  230 
DDKY  240 
DDKY  250 
DDKY  260 
DDKY  270 
DDKY  280 
DDKY  290 
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read 

next 
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write 

domain 

key 


c 


stop 


copy  line- 
numbers  from 
group  key  to 
domain  key 


FLOW  DIAGRAM  FOR  PROGRAM  DDKEY1 


212 


Identification 

Program  name: 

DSEM 

Program  title: 

Density  estimator  testing  program. 

Author : 

John  Famsden 
Organization : 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date : 

1  October  1974 
Program  version  number: 

1 


Application 


Purpose : 

To  compute  density  estimates  on  the  sphere  by  several 
methods . 


Method : 

The  program  computes  density  estimates  on  the  sphere  by 
several  methods  at  several  counting  locations  for  each 
sample  of  data  points  given.  For  details  of. the  methods  see 
Famsden  J,  1975,  Numerical  Methods  in  Fabric  Analysis,  Ph  D 
thesis,  Univ  of  Alberta,  Edmonton. 


Data  restrictions: 
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Maximum  number  of  counting  locations  is  20.  Maximum 
size  of  samples  is  1000  points. 

Timing : 

About  30  seconds  of  CPU  time  was  required  to  process  50 
samples  of  50  points  each  using  6  counting  locations  and 
computing  10  density  estimates  at  each  location. 


Implementation 


Original  installation: 


Organization: 
Computer : 

I/O  devices: 

Software : 


University  of  Alberta  Computing  Services. 

IBM  360  model  67  (1024K) . 

card ,  disc,  tape,  typewriter  terminals  and 

display  terminals.  . 

Michigan  Terminal  System  (MTS) ,  a  virtual- 
storage  time-sharing  system. 


Source  language: 
FCBTBAN  IV 

Subroutines  reguired: 
None . 


Size : 


Total  program  size  is  19208  bytes. 


Bequirements  for  I/O 


devices : 


I/O  read/ 
unit  write 
no . 


Maximum  FORTBAN 
record  length 


device  suggested 

control  device 

statements 


rsad  12^28  unformatted 
read  43  formatted 
read  80  formatted 
write  69  formatted 
write  124  formatted 


rewind  tape,  disc 

none  card  reader 

none  card  reader 

none  line  printer 

none  tape,  disc 


:?psu?n*l  J7VO' 

* 
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Usage 


Input : 

I/O  unit  1:  samples. 

Any  number  of  samples.  One  unformatted  record  for  each 
sample,  each  record  consisting  of  4  bytes  containing  the 
number  of  points  in  the  sample  as  a  fullword  integer,  120 
bytes  containing  the  title,  4  bytes  containing  the  number  of 
direction  cosines  in  the  record,  and  12  to  12000  bytes 
containing  the  direction  cosines  of  the  data  points  as  one- 
word  real  numbers. 

I/O  unit  4:  counting  locations. 

One  record  containing  the  number  of  counting  locations 
in  columns  1-4  as  a  right- justified  integer,  followed  by  one 
record  for  each  counting  location.  Each  of  these  records 

contains 

col  contents 

1-3  number  of  this  counting  location 

4-13  first  direction  cosine 

14-23  second  direction  cosine 

24-33  third  direction  cosine 

34-43  true  density  at  this  counting  location 


I/O  unit  5:  parameters. 


One  record  for 
Each  record  contains 

contents 


each  density  estimate  to  be  computed. 


col 

1 


2 

3-11 

12 

13-80 


1 


for  the  constant-area  estimator;  2  for  the 
constant-area  estimator  using  Kamb’s  rule;  3 
for  the  constant-proportion  estimator;  4  for 
the  Fisher-weighted  estimator. 

blank  ,  , 

parameter  of  the  estimator  as  a  real  number 

(with  decimal  point) 

blank 

unigue  name  or  label  for  this  estimate. 


Output : 

I/O  unit  6;  messages. 

The  name  or  label  of  each  estimate  is  written  on  this 
unit  when  the  parameter  card  is  read.  The  number  -10.0  is 
written  at  the  completion  of  processing  for  that  estimate. 
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I/O  unit  8:  density  estimates. 

The  following  types  of  records  in  the  sequence: 

(1)  the  number  of  counting  locations  and  the  true 
density  at  each  counting  location  in  the  format  (14, 
12F10. 6)  . 

(2)  name  or  label  from  one  parameter  card. 

(3)  the  density  estimates  for  one  sample  at  the  several 
counting  locations  in  the  format  (12F1C.4).  Record  (3)  is 
repeated  for  each  sample. 

(4)  the  number  -10.0  in  the  format  (F10.4).  Records 
through  (4)  are  repeated  for  each  parameter  card. 


(2) 
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Identification 

Program  name: 

DSPDAT1 

Program  title: 

Areal-analysis  package  -  data  preparation  for  display 
programs. 

Author : 

John  Ramsden 

Organization : 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date : 

1  October  1974 
Program  version  number: 

1 


Application 


Purpose : 

To  read  a  data  file  written  by  program  INPUT1  or 
INPU1K1  and  output  four  data  files  suitable  for  input 
programs  WNDPLT3,  NPPLCT1  and  MAPS. 

Method : 

The.  program  reads  a  rotation  matrix  and  two  parameters. 
Each  block  of  data  read  from  the  input  file  is  written  on  o 
output  files  IOD  and  IMA.  The  data  is  then  rotated  using  the 
ration  matrix,  and  the  rotated  data  written  onto  output 
files  i ODB  and  IMAB.  Files  IOD  and  IODB  are  suitable  for 
input  to  programs  WNDPLT3  and  NPPL0T1;  files 
are  suitable  for  input  tc  program  MAP3. 


IMA  and  IMAR 


If  the  input  parameter  has  a  value  of  1,  the  input 
are  assumed  to  contain  the  direction  cosines  of  lines  ana 


jioriix/* 


li  ?•*'■  I  B  jr  :  o  *30 Id 

■  c  J  J  >  V  V  1  trf:1  ]  ,5;' 
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the  trends  and  plunges  of  the  lines.  The  data  are  output  as 
read.  If  the  input  parameter  has  a  value  of  2,  the  input 
data  are  assumed  to  contain  the  direction  cosines  of  the 
poles  to  planes  and  the  dip  directions  and  dip's  of  the 
planes.  The  dip  directions  and  dips  are  replaced  by  the 
trends  and  plunges  of  the  poles  to  the  planes  before  the 
data  are  written. 

After  rotation,  new  trends  and  plunges  are  computed 
from  the  direction  cosines. 

If  the  output  parameter  is  not  zero,  all  the  numbers 
for  display  on  the  map  are  replaced  by  zeros.  If  the  output 
parameter  is  neither  zero  nor  1,  all  the  labels  to  be 
plotted  on  the  map  are  replaced  by  blanks. 

Data  restrictions: 

Ncne . 

Timing : 

T= 1  .  3+  0 . 0082P  where  T=CPU  time  in  seconds,  P=total 
number  of  data  points. 


Implementation 


Original  installation: 


Organization: 
Computer : 

I/O  devices: 

Soft  ware : 


University  of  Alberta  Computing  Services. 

IBM  360  model  67  (1024K). 

card,  disc,  tape,  typewriter  terminals  and 
display  terminals. 

Michigan  Terminal  System  (MTS) ,  a  virtual- 
storage  time-sharing  system. 


Source  language: 
FORTRAN  IV 


Subroutines  required: 

Subroutines  RTSP,  SEF  from  JR  subroutine  library. 
Subroutine  GMPRD  from  SSP  subroutine  library. 

Size  : 

Total  size  including  all  required  subroutines  is  13288 
bytes . 
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Requirements  for  I/O  devices: 


I/O 
unit 
no . 

read/ 

write 

Maximum  FORTRAN 
record  length 
(bytes) 

device 
control 
statement  s 

suggested 

device 

2 

read 

30  formatted 

none 

disc ; 

card . 

3 

write 

1608  unformatted 

none 

disc; 

tape. 

4 

write 

1608  unformatted 

none 

disc ; 

tape . 

5 

read 

3  formatted 

none 

card ; 

terminal 

6 

write 

62  formatted. 

none 

line 

printer. 

7 

read 

4008  unformatted 

none 

disc ; 

tape . 

8 

write 

2408  unformatted 

none 

disc ; 

tape . 

9 

write 

2408  unformatted 

none 

disc; 

tape . 

Usage 


Input: 

I/O  unit  2:  rotation  matrix. 

Three  records,  each  record  containing  the  corresponding 
column  of  the  matrix  as  three  real  numbers  in  columns  1-10, 
11-20,  and  21-30. 

I/O  unit  5:  parameters. 

One  record  containing 
col  contents 


1  input  parameter 

3  output  parameter 

I/O  unit  7:  input  data  file. 

The  input  file  is  as  written  by  programs  INPUT1  and 
INPUTK1.  Variables  for  each  observation  are:  three  direction 
cosines,  weight,  easting,  northing,  number  to  appear  on  map, 
label  tc  appear  cn  map,  trend  or  dip  direction,  plunge  or 

dip. 

•  Output : 

I/O  unit  3:  data  file  for  orientation  diagrams. 

Variables  for  each  observation  are:  three  direction 
cosines,  weight. 


• 

• 

... 
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I/O  unit  4:  data  file  for  orientation  diagrams,  rotated. 

Same  as  unit  3  output  except  rotated  direction  cosines 
are  used. 

I/O  unit  6:  messages. 

If  the  number  of  variables  in  the  input  data  file  is 
not  10  an  error  message  is  written  and  the  program  stops 
imme  diately . 

I/O  unit  8:  data  file  for  map. 

Variables  for  each  observation  are:  easting,  northing, 
number  to  appear  on  map,  label  to  appear  on  map,  trend, 
plunge. 

I/O  unit  9:  data  file  for  map,  rotated. 

Same  as  unit  8  output  except  rotated  trends  and  plunges 
are  used. 


n  n  n  n  n  n  o 
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c 

c 

c 

c 

c 


AREAL-ANALYSIS  PACKAGE  -  PROGRAM  "DSPDAT 1 


INTEGER  TITLE  (30)  ,  DATA  (5,100)  ,CT/' T '/.BLANK/' 
*,OVl  (5) /'TRUE'  , •  ORI' ,  • ENTA' , 'TION' , •  •/ 


'/ 


*,OV2  (5)/' MEAN' , '  VER ' , • TIC A • , ' L 


•  • 
. 


V 


REAL  DCR  (3,  100)  ,  DC  (3,100)  ,W  (100)  ,T  (100)  ,P  (100)  ,RM  (9)  ,POLR  (100) 


1 

2 

3 

4 

5 

6 


,16, 


FORMAT  (15 A4) 

FORMAT  (110) 

FORMAT  (A  1 , 30A4) 

FORMAT (/IX, ******  ERROR  IN  KEY  FILE  *♦***•) 

FORMAT  (/I  X ,' *****  ERROR  -  END  OF  DATA  FILE  **♦**') 

FORMAT  (3 F 1  0 . 6) 

8  FORMAT (IX, 30A4) 

9  FORMAT  (1  X, 13) 

10  FORMAT  (II, IX, II) 

11  FORMAT  (•  TOTAL  NUMBER  OF  POINTS=',l5) 

12  FORMAT  (/IX, 30A4/1X, 16,  «  PHYSICAL  RECORDS;  ',16,'  VARIABLES 
*»  OBSERVATIONS') 

13  FORMAT  (/'  *****  ERROR  -  NUMBER  OF  VARIABLES  IN  DATA  MATRIX  NOT  10 
******* ) 

14  FORMAT (1X,9E13.4) 

READ  PARAMETERS 

IOD  =  3 
IODR=4 
I M  A  =8 
IM  A  R  =  9 
IOM  ATR  =  2 
IOP AR=  5 
IOM  SG=6 
I N  PUT=7 

READ  (I  OM  AT  R,  6)  RM 
READ  (IOPAR,  10)  KK , KL 

READ  AND  WRITE  TITLE  RECORD 

140  READ  (INPUT,  F.ND=  50  0 )  NN  ,  NV  ,  NO,  N  PH  R  ,  T ITL  E 
NTOT-NO 

WRITE  (IOMSG, 12) TITLE, NPHR,  NV,  NO 
IF (NV. NE. 10) GOTO910 
N  V  O  D  =  4 
NNOD=4*NTOT 
NVM A=6 
NNM A=6*NTOT 
DO  410  1=1 ,5 
410  TITLE  (15*1) =OV1  (I) 

WRITE  (IOD)  N NOD , NVOD, NTOT, NPHR, TITLE 

WRITE  (IMA)  NNMA, NV MA, NT OT, NPHR, TITLE 

DO  412  1=1,5 
412  TITLE  (15*1) =OV2  (I) 

WRITE(IODR) NNOD, NVOD, NTOT, NPHR, TITLE 
WRITE (IMAR) NNMA, NVMA, NTOT, NPHR, TITLE 


DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 

DSPD 


10 

20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
29  0 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 


hi  ;  is  i sa'-  «nuH  - 


■  i  a 


i  {A,h  «r  I) 0  *Tfl 


n  on 
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READ  AND  WRITE  DATA  RECORDS 
DO  4  BO  JR=1,NPHR 

READ  (INPUT)  NR,  IE,  (  (DC  (I,J)  ,1=1,3)  ,  U  (J)  ,  (DATA  (I ,  J)  ,  1=  1  , 4 )  , 
*T  ( J )  ,P  (J)  ,J=1,NR) 

IF  (KL.EQ.O) GOTO440 
DO  430  J=  1 , NR 
430  DATA  (  3 , J)  =0 

IF  (KL. EQ. 1) GOTO440 
DO  435  0=1, NR 
435  DATA  (4  ,  J)  =BLANK 
440  IF (KK. EQ. 1) GOTO460 
DO  450  J= 1 , NR 
T  (J)  =T  (J)  ♦  1  80 

IF  (T  (J)  .GT.  360)  T  (J)  =T  (J)  -3  60 
450  P(J)=oO-P(J) 

4  60  WRITE  (IOD)  N  R,  I  E  ,  (  ( DC  ( I  ,  J)  ,1=1,3)  ,  W  ( J  )  ,  J=1  ,  NR) 

WRITE  (IMA)  NR,IE,  (  (DATA  (I,J)  ,1=1,4)  ,T(J)  ,P  ( J )  ,J=1,NR) 

CALL  GMPRD  ( RM , DC , DC R , 3 , 3 , N R) 

CALL  RTSP(DCR(1,1)  ,DCR  (2,1)  ,DCR(3,1)  ,  3,T,  P,  POLR,  1  ,  -1 ,  NR) 
CALL  SRF  (T,T, NR, 0,999) 

CALL  SRF  (P,P, NR, 0,999) 

WRITE  (IODR)  NR,  IE,  (  (DCR  (I,  J)  ,1=1,3)  ,W  (J)  ,J=1,NR) 
WRITE(IMAR)  NR,  IE,  (  (DATA  (I,J)  ,1=1,4)  ,T  (J)  ,P  (J)  ,J=1,NR) 

480  CONTINUE 
C 

500  STOP 

c 

910  WRITE(IOMSG,13) 

STOP12 

END 


DSPD  600 
DSPD  610 
DSPD  620 
DSPD  630 
DSPD  640 
DSPD  650 
DSPD  660 
DSPD  670 
DSPD  680 
DSPD  690 
DSPD  700 
DSPD  710 
DSPD  720 
DSPD  730 
DSPD  740 
DSPD  750 
DSPD  760 
DSPD  770 
DSPD  780 
DSPD  790 
DSPD  800 
DSPD  810 
DSPD  820 
DSPD  830 
DSPD  840 
DSPD  850 
DSPD  860 
DSPD  870 
DSPD  880 
DSPD  890 
DSPD  900 
DSPD  910 


’  ,  :  4* 

i 


1  '  -IT.,  C!  I  .j 


end-of-file 
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FLOW  DIAGRAM  FOR  PROGRAM  DSPDAT1 
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Identification 

Program  name: 

GRPKEY1 

Program  title: 

Areal-analysis  package  -  generation  of  group  keys. 
Author : 

John  Ramsden 
Organization : 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date : 

1  October  1974 
Program  version  number: 

1 


Application 


Purpose : 

lo  generate  group  keys  from  a  traverse  file  containing 
data  file  line  numbers. 

Method : 

From  the  traverse  file  the  program  reads  the  range  of 
data-file  line  numbers  for  each  traverse.  It  then  reads 
group  definitions,  one  at  a  time.  Each  group  is  defined  by 
traverse  numbers  and  observations  numbers  on  each  traverse. 
Traverses  specified  for  a  group  are  processed  in  order  of 
increasing  traverse  number,  so  that  line  numbers  in  the  key 
will  be  in  sequence.  (This  traverse  number  is  not  the  field 
traverse  number,  but  a  sequence  number  assigned  by  the 
program  TRVLST2  so  that  traverses  are  numbered  sequentially 
as  they  appear  in  the  data  file.)  If  the  entire  traverse  is 
not  to  be  included,  the  range  of  line  numbers  to  be  included 
in  the  key  is  computed.  The  line  numbers  in  this  range  are 


no  'oii. 


/!•  ft:" 

. 


SOl*  V  . :  ^2 
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added  to  the  key. 

The  number  of  the  traverse  just  processed  is  replaced 
by  1C000  and  the  group  definition  again  searched  for  the 
smallest  traverse  number.  When  all  the  traverses  included  in 
the  group  have  been  processed,  the  key  is  written  out  and 
the  next  group  definition  is  read. 

Data  restrictions: 

Maximum  number  of  traverses  in  traverse  file  is  999. 
Maximum  number  of  traverses  in  one  group  is  10.  Maximum 
number  of  line  numbers  in  key  is  20. 

Timing : 

The  program  required  1.3  seconds  of  CPU  time  to 
generate  32  group  keys  containing  a  total  of  297  points. 


Implementation 


Original  installation: 


Organization : 
Computer : 

I/O  devices: 

Soft  ware : 


University  of  Alberta  Computing  Services. 

I  EM  360  model  67  (1024K). 

card,  disc,  tape,  typewriter  terminals  and 
display  terminals. 

Michigan  Terminal  System  (MTS) ,  a  virtual- 
storage  time-sharing  system. 


Source  language: 


TORTS AN  IV 


Subroutines  required: 

Subroutines  INCH  WRITEK  from  JR  subroutine  library. 


Size : 

Total  size  including  all  required  subroutines  is  7768 
bytes. 

Requirements  for  I/O  devices: 
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I/O 

unit 

no. 

read/ 

write 

Maximum  FORTRAN 
record  length 
(bytes) 

device 

control 

statements 

suggested 

device 

1 

read 

121  formatted 

none 

disc. 

2 

read 

120  formatted 

none 

disc. 

6 

write 

121  formatted 

none 

line  printer 

7 

write 

80  formatted 

none 

disc; 

card  punch. 

Usage 
Input : 

I/O  unit  1:  traverse  numbers  and  line-number  ranges. 


Col 


One  record  for  each  traverse  containing 
Contents 


2-5 
13-1  6 
17-20 


traverse  number 

starting  line  number  for  traverse 
ending  line  number  for  traverse 


I/O  unit  2:  group  definitions. 

One  record  for  each  group  containing  120  characters 
divided  into  30  contiguous  4-character  fields.  From  left  to 
right,  these  fields  contain  the  traverse  number,  number  of 
f^j-gt  observation  to  be  included,  number  of  last  observation 
to  be  included.  This  sequence  is  repeated  for  up  to  10 
traverses.  For  example,  the  first  six  observations  on 
traverse  5  would  appear  as 
...  5. .. 1 ...  6 

where  " . "  represents  a  blank.  If  the  number  of  the  first 
observation  to  be  included  is  blank  or  zero,  the  first 
observation  on  the  traverse  is  assumed.  If  the  number  of  the 
last  observation  to  be  included  is  blank  or  zero,  the  last 
observation  on  the  traverse  is  assumed. 


Output : 

I/O  unit  6:  error  messages. 

If  the  number  of  observations  indicated  to  be  included 
from  one  traverse  is  greater  than  the  number  of  observations 
on  the  traverse,  an  error  message  is  produced  and  the 
program  stops  immediately. 


-r* 


im  yvz  *1  T  r  *■  ?d  of 

ai  x.  g :  'iiJ 

Hi  -t  X  -.  V  1  -•  •:  >\  o  :  ?„ 

.  * 

-  --  a  •'  '  iJ  ■  :■  :  o 
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I/O  unit  7:  key. 

The  keys  are  written  by  calling  the  subroutine  WFITEK • 
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c 

c 

C  AREAL- ANALYSIS  PACKAGE  -  PROGRAM  "GRPKEY1". 

C 

C 

INTEGER*  2  KEY  (3  8)  , M (999) /999*0/ , N ( 99 9) /999*0/ , L ( 3 , 1 0) 

INTEGER  TITLE  (30)  ,TITLE2 (10) /'GROU* , • P  ',0*'  '/,FMT(25) 

C 

2  FORMAT  (30IU) 

3  FORMAT  (IX,  30A4) 

4  FORMAT  ( *  '/IX, 30I4/1X, ‘TRAVERSE* , 13, '  ENDING  NUMBER  TOO  LARGE* 

S , 10  1 10) 

5  FORMAT (IX, 30I4/1X, 1011 0) 

6  FORMAT (IX, 10110) 

7  FORMAT  ('  */1X, 30I4/1X, 'TRAVERSE  NUMBER*,I4,*  NOT  IN  PILE') 

8  FORMAT (2X, 25A4) 

C 

READ  (5,  8)  FMT 
C 

READ  (1 , 3)  TITLE 
DO  80  J= 1 ,  1  0 

80  TITLE  (J+  10)  =TITLE2  <J) 

100  READ  (1  ,FMT, END=120) J, M  (J)  ,  N  (J) 

LEN  F IL  =N  (J) 

GOTO100 
120  CONTINUE 
C 

IG  ROl)P  =  0 
180  CONTINUE 
LENK  FY  =  0 

200  READ  (2,2, END=500)  L 
NT=  10 

240  IF (L  (1 , NT)  . NE. 0) GOTO250 
NT=NT- 1 
GOTO240 
250  CONTINUE 
C 

DO  400  1=1, NT 

MIN=10000 

DO  3-00  J  =  1  ,  NT 

IF  ( L  ( 1 , J)  .GE.MIN) GOTO3  00 

MIN  =  L  (1  ,  J) 

JMIN=J 

300  CONTINUE 

IFIRST  =  M  (MIN) 

ILAST=N (MIN) 

IF  (IFIRST. EQ.O  .OR.  IL AST . EQ . 0)  GOTO90 1 

KA=IFIRST 

KB= I  LAST 

IBEGIN=L (2, JMIN) 

IEND=L  (3,  JMIN) 

IF  (IBEGIN.NE.O)  KA=IFIRST*IBEGIN-1 
IF  (IEND.NE.0)  KB=I  FIRST  +  IEND-1 
IF  (KB. LE. I  LAST) GOTO320 

WRITE  (6, 4)  L,L(1,JMIN)  , IBEGIN, IEND, KA , KB 
STOP12 

320  CONTINUE 

DO  340  K=  KA , KB 
LENKEY=LENKEY*1 


GRPK 

10 

GRPK 

20 

GRPK 

30 

GRPK 

40 

GRPK 

50 

GRPK 

60 

GRPK 

70 

GRPK 

80 

GRPK 

90 

GRPK 

100 

GRPK 

1  10 

GRPK 

120 

GRPK 

130 

GRPK 

140 

GRPK 

150 

GRPK 

160 

GRPK 

170 

GRPK 

180 

GRPK 

190 

GRPK 

200 

GRPK 

210 

GRPK 

220 

GRPK 

230 

GRPK 

240 

GRPK 

250 

GRPK 

260 

GRPK 

270 

GRPK 

280 

GRPK 

290 

GRPK 

300 

GRPK 

310 

GRPK 

320 

GRPK 

330 

GRPK 

340 

GRPK 

350 

GRPK 

360 

GRPK 

370 

GRPK 

380 

GRPK 

390 

GRPK 

400 

GRFK 

410 

GRPK 

420 

GRPK 

430 

GRPK 

440 

GRPK 

450 

GRPK 

460 

GRPK 

470 

GRPK 

48.0 

GRPK 

14  8  0 

GRPK 

500 

GRPK 

510 

GRPK 

520 

GRPK 

530 

GRPK 

540 

GRPK 

550 

GRPK 

560 

GRPK 

570 

GRPK 

580 

GRPK 

590 

*'  •  . 


:  •'  .()  J  =  C  I 

.as  ’  • 
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KEY  (LENKEY) =K 
340  CONTINUE 

L  (  1 ,  JMIN)  =10000 
400  CONTINUE 

IGROUP=IGROUP* 1 

CALL  INCH  (IGROUP, TITLE  (13)  ,4,  1,'  '  ,  I S  ,  IER  ) 

CALL  WRITEK (7, TIT LE,LENFIL, LENKEY, KEY) 
GOTO180 
C 

500  STOP 

901  WRITE (6,7) L, MI N 
END 


GRPK 

600 

GRPK 

610 

GRPK 

620 

GRPK 

630 

GRPK 

640 

GRPK 

650 

GRPK 

660 

GRPK 

670 

GRPK 

680 

GRPK 

690 

GRPK 

700 

GRPK 

710 
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FLOW  DIAGRAM  FOR  PROGRAM  GRPKEY  1 


235 


Identif  ication 

Program  name: 

GRPSTA1 

Program  title: 

Areal  analysis  package  -  group  statistics  program. 
Author : 

John  Ramsden 
Organization : 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date : 

1  October  1974 
Program  version  number: 

1 


Application 


Purpose : 

To  compute  statistics  for  each  group  of  observations 
for  domain  analysis. 

Method : 

The  program  accepts  as  parameters  the  format  of  the 
output  and  the  pole  of  the.  hemisphere  to  be  used  for 
computing  statistics.  The  data  are  read  frcm  a  file  written 
by  program  INPUHKI .  As  the  data  for  each  group  are  read, 
statistics  are  computed  by  calling  subroutines  SC0M1  and 
FSTAT1.  Since  these  are  vector  statistics,  the  pole  read 
from  the  parameter  card  is  used  for  assigning  sense  to  the 
axes . 

Data  restrictions: 

Maximum  number  of  observations  in  any  group  is  100. 


1  ^  • 


oi^e.VT^rdo  lo  ifdaua  irunixBH 
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Timing : 

t=0.005p;  t=CPU  time  in  seconds;  p=total  number  of 
points  in  all  groups. 


Implementation 


Original  installation: 


Organization : 
Computer : 

I/O  devices: 

Soft  ware : 


University  of  Alberta  Computing  Services, 

I  EM  360  mcdel  67  (1024K)  . 

card,  disc,  tape,  typewriter  terminals  and 
display  terminals. 

Michigan  Terminal  System  (MTS) ,  a  virtual- 
storage  time-sharing  system. 


Source  language: 


FORTRAN  IV 

Subroutines  and  function  subprograms  required: 

The  following  subroutines  from  JR  subroutine  library: 
AN  EC  FSTAT1  RTSP  SCOM1  SRF  TAB  1  XKF . 


Size: 

Total  size  including  all  required  subroutines  is  12704 
bytes , 


Requirements  for  I/O  devices: 


I/O 

unit 

no. 

read/ 

write 

Maximum  FORTRAN 
record  length 
(bytes) 

device 

control 

statements 

suggested 

device 

1 

read 

2408  unformatted 

none 

tape; 

disc 

3 

read 

30  formatted 

none 

disc ; 

card 

5 

read 

102  formatted 

none 

disc ; 

card 

8 

write 

determined  by 

none 

tape; 

disc 

given  format 

.  t'f  •  '  iT 


.  • 


.  ,  :  A : 
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Usage 


Input : 

I/O  unit  1:  input  data  file. 

As  written  ty  program  INPUTK1. 

I/O  unit  3:  pole  of  hemisphere. 

Three  records  containing,  in  the  usual  sequence, 
direction  cosines  of  pole,  one  direction  cosine  per  record 
in  columns  21-30  with  decimal  point. 

I/O  unit  5:  output  format. 

Columns  3-102. 

Output: 

I/O  unit  8:  output  data  file. 

Format  determined  by  given  format  specification. 
Variables  written  are:  number  of  group;  mean  x  coordinate  of 
group;  mean  y  coordinate  of  group;  number  cf  observations  in 
group;  sum  of  weights  times  10;  three  sums  of  components,  in 
the  usual  sequence,  times  10**4;  three  direction  cosines  of 
mean  direction,  in  the  usual  sequence,  times  10**6;  length 
of  resultant  divided  by  sum  of  weights,  times  10**6;  trend 
and  plunge  of  mean  direction  as  integers;  concentration 
parameter  as  integer. 


, 


no  n  n  o  oonnnn  non  nonnoo 
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C 

c 

C  AREAL-ANALYSIS  PACKAGE  -  PROGRAM  "GRPSTA1". 

C 

C 

INTEGER  TITLE  (30)  ,IU  (3)  ,IE  (3)  ,  FMT  (2  5) 

INTEGER  IX  (100)  ,  IY  (100) 

INTEGER  ADDTTL  (5)  /  '  GROU  '  , 'PS  '/ 

REAL  DC  (3,  10  0)  ,E  (3)  ,  V  (3)  ,S  (4)  ,U  (3)  ,T  (2)  ,R  (2)  ,  DTR/1 . 74  532  9E-2/ 
*,W  (ICO) 

EQUIVALENCE  (IU,U)  ,  (IE,E)  ,  (ISW,SW)  ,  (IT,T(2)  ) 

IGR  P  =  0 
C 

READ  (5, 12)  FMT 
READ  POLE  OF  HEMISPHERE 
READ  (3,5)  V 

INITIALIZE  VARIABLES  FOR  THIS  GROUP 


80  ISX  =  0 
IS  Y  =  0 
SW=0. 0 
IGRP=IGRP«-  1 

- READ  DATA  AND  COMPUTE  SUMS  OF  COORDINATES  AND  WEIGHTS 

100  READ(1,END=400) N N , NV , N O, N PH R , TITLE 
IF  (IGRP. NE.  1) GOT 01 10 
DO  10  5  1=1,5 

105  TITLE  (I*  10  )=  ADDTTL  (I) 

WRITE  (8,11) TITLE 

110  READ(1)  N,KE,  (IX(J)  ,IY  (J)  ,  (DC(I,J)  ,I=1,3),W(J)  ,J=1,N) 
DO  115  J=1 , NO 

115  WRITE  (7,  13)  J,IX(J)  ,IY  (J)  ,  (DC  (I,J)  ,1  =  1,3)  ,W  (J) 

DO  120  J=  1  , NO 
ISX=ISX* IX  (J) 

IS Y=  IS Y+ 1 Y  (J) 

SW=-SW  +  W(J) 

120  CONTINUE 

- COMPUTE  STATS  FOR  THIS  GROUP 


200  N  =  N  O 

DO  2  10  J-  1  ,  N 

2  10  WRITE  (6, 10)  J,  (DC(I,J)  ,1=1,3)  ,W(J) 

220  CALL  SCOM1  (DC,W,N,y,3,U) 

WRITE (6,  14)  U 

240  CALL  FSTAT1  (TITLE, N,SW,U,E,S, T,XK,  R,-1) 
ITR  =  S  ( 1)  +0.5 
IPL  =  S  (2)  +0 . 5 

----COM  PUT  E  MEAN  COORDINATES 

280  IXAVG  =  FLOAT  (ISX) /N  +  0. 5 
285  IYAVG=FLOAT(ISY)/N*0,5 

- WRITE  OUTPUT  LINE 


GRPS 

10 

G  R  PS 

20 

GRPS 

30 

GRPS 

40 

GRPS 

50 

GRPS 

60 

GRPS 

70 

GRPS 

80 

GRPS 

90 

GRPS 

100 

GRPS 

110 

GRPS 

120 

GRPS 

130 

GRPS 

140 

GRPS 

150 

GRPS 

160 

GRPS 

170 

GRPS 

180 

GRPS 

190 

GRPS 

200 

GRPS 

21  0 

GRPS 

220 

GRPS 

230 

GRPS 

240 

GRPS 

250 

GRPS 

260 

GRPS 

270 

GRPS 

280 

GRPS 

290 

GRPS 

300 

GRPS 

310 

GRPS 

320 

GRPS 

330 

GRPS 

340 

GRPS 

350 

GRPS 

360 

GRPS 

370 

GRPS 

380 

GRPS 

390 

GRPS 

400 

GRPS 

410 

GRPS 

420 

GRPS 

430 

GRPS 

440 

GRPS 

450 

GRPS 

46  0 

GRPS 

470 

GRPS 

480 

GRPS 

490 

GRPS 

500 

GRPS 

510 

GRPS 

520 

GRPS 

530 

GRPS 

540 

GRPS 

550 

GRPS 

560 

GRPS 

570 

GRPS 

580 

GRPS 

590 

i1'  i  (CO i )  x  i  nn  m 


. 


■  )  -f 


f\(Y  JT;  A  ■  1 


1 

2 

4 

5 

6 

9 

10 

1 1 

12 

13 

14 


600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 


IF  (XK.GT. 99  99. 0)  XK  =  9999.0 
K=XK«-0 . 5 

CALL  SRF (SW,ISW, 1 , 1 ,999999) 

CALL  SRF  (U,  III,  3,4, 9999999) 

CALL  SRF  (E , IE  ,  3 , 6 , 999999) 

CALL  SRF  (T  (2)  ,IT, 1,6, 999999) 

WRITE (3, FMT)  IGRP , I XA VG , I Y A VG , N , I SW , I  0 , IE, IT,ITR,IPL,K 
GOTO80 

STOP 


FORMAT  (II) 

FORMAT  (15A4) 

FORMAT  (/'  ****  ERROR  IN  KEY  FILE  ****•) 

FORMAT  (20Xf  F10.6) 

FORMAT  {/•  +***  ERROR  -  END  OP  DATA  FILE  ****•} 
FORMAT  (A  1  ,30A4) 

FORMAT (IX, 14, IX, 4F10. 4) 

FORMAT  (»T ' , 30 A4) 

FORMAT  (2X,  25A4) 

FORMAT (IX, 1 4, 2110, 4F1 0.4) 

FORMAT  ('  SUMS  OF  COMP  *,3F10.6) 

END 
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Identification 

Program  name: 

H0M01 

Program  title: 

Areal-analysis  package  -  fabric  homogeneity  testing 
program. 

Author : 

John  Ramsden 

Organization : 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date : 

1  October  1 974 
Program  version  number: 

1 


Application 


Purpose : 

To  test  grouped  orientation  data  for  homogeneity  of 
concentration  parameters  and  homogeneity  of  group  means 
interactively. 

Method : 

The  program  first  reads  the  group  data,  then  accepts 
commands  from  the  input  device  attached  to  I/O  unit  5, 
normally  an  interactive  terminal  but  possibly  a  card  reader. 
In  response  to  these  commands  the  program  will  add  groups  to 
or  delete  groups  from  the  set  of  "currently  included" 
groups,  and  test  for  homogeneity  of  concentration  parameters 
or  for  homogeneity  of  mean  directions  among  the  currently 
included  groups.  Details  of  the  commands  and  their  effects 
follow. 


:boii*9f! 
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Name : 
Form : 
Effect: 


Name : 
Form : 
Effect : 


Name : 
Form  : 
Effect: 


Name : 
Form  : 
Effect: 


Name  : 
Form  : 
Effect: 


Name : 

Form : 
Effect : 


Name  : 
Form.: 
Effect: 


Delete. 

"D"  followed  by  optional  list  of  group  numbers. 

If  group  numbers  are  given,  those  group  numbers  are 
deleted  from  the  list  of  currently  included  groups. 
If  no  group  numbers  are  given,  all  groups  are 
deleted  frcm  the  list. 

Eestore . 

"R"  followed  by  optional  list  of  group  numbers. 

If  group  numbers  are  given,  those  group  numbers  are 
added  to  the  list  of  currently  included  groups.  If 
no  group  numbers  are  given,  all  groups  are  added  to 
the  list. 

List . 

"L"  . 

Those  group  numbers  in  the  list  of  currently 
included  groups  are  printed.  Those  group  numbers  not 
in  the  list  are  printed  separately. 

Concentration  Parameter  Test. 

"K". 

Concentration  parameters  of  currently  included 
groups  are  tested  for  homogeneity  by  the  subroutine 
TCPF  and  the  results  of  the  test  are  printed. 

Mean  Direction  Test. 

"M". 

Mean  directions  of  currently  included  groups  are 
tested  for  homogeneity  by  the  subroutine  TMDF  and 
the  results  of  the  test  are  printed. 

Automatic  Deletion  of  Groups  until  Means  are 
Homogeneous . 

"A". 

The  group  whose  mean  direction  is  farthest  away  from 
the  overall  mean  direction  is  deleted  from  the  list 
of  currently  included  groups.  The  mean  directions  of 
the  groups  then  remaining  in  the  list  are  tested  for 
homogeneity.  If  the  test  indicates  that  the  means 
are  homogeneous  a  message  to  that  effect  is  printed 
and  the  command  ''List'’  is  executed  before  returning 
to  command  mode.  If  the  test  indicates  that  the 
means  are  not  homogeneous  the  procedure  is  repeated, 
a  new  overall  mean  direction  being  computed  first. 
This  iteration  is  continued  until  either  the  means 
become  homogeneous  or  only  two  groups  remain. 

Stop. 

II  C  11 

The  program  reguests  and  reads  a  name  for  the  set  of 
currently  included  groups  (or  "domain") .  This  set  of 
group  numbers  is  then  written  on  I/O  unit  7  and  the 
program  stops. 


■ 
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The  tests  for  homogeneity  of  concentration  parameters 
and  homogeneity  of  group  mean  directions  are  taken  from 
Mardia,  K.  V.,  1972,  Statistics  of  Directional  Data,  London 
&  New  York,  Academic  Press,  pp267-271,  with  the  following 
change:  The  number  of  degrees  of  freedom  for  the  Chi-square 

statistic  used  for  testing  the  concentration  parameters  has 
been  taken  as  n-1 ,  where  n  is  the  number  of  groups  tested, 
instead  of  2n-2  as  given  by  Mardia.  Checks  performed  using 
data  generated  artificially  from  a  Fisher  distribution  with 
k=50  indicate  that  the  correct  number  of  degrees  of  freedom 
is  approximately  n-1. 

Data  restrictions: 

Maximum  number  of  groups  is  100. 

Timing: 

The  program  required  about  0.5  second  of  CPU  time  to 
read  data  for  32  groups  and  test  concentration  parameters 
once  and  test  mean  directions  once. 


Implementat ion 


Original  installation: 


Organization : 
Computer : 

I/O  devices: 

Software : 


University  of  Alberta  Computing  Services. 

I  EM  360  model  67  (1024K)  . 

card,  disc,  tape,  typewriter  terminals  and 
display  terminals. 

Michigan  Terminal  System  (MTS) ,  a  virtual- 
storage  time-sharing  system. 


Source  language: 

FORTRAN  IV 

Subroutines  and  function  subprograms  required. 

The  following  subroutines  from  JR  subroutine  library: 
READK  WRITER.  The  following  subroutines  from  IMSL  subroutine 
library:  MDCH  MDFD  UERTST. 


Size  : 


Total  program 
subroutines  is  24384 

Requirements  for  I/O 


size  including 
bytes. 

devices : 


all  required  library 
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ft* 


I/O 

unit 

no. 

read/ 

write 

Maximum  FORTRAN 
record  length 
(bytes) 

device 

control 

statement 

suggested 

device 

C 

1 

read 

3608  unformatted 

none 

tape;  disc. 

2 

read 

80  formatted 

none 

disc;  card. 

5 

read 

61  formatted 

none 

terminal. 

6 

write 

121  formatted 

none 

terminal. 

7 

write 

80  formatted 

none 

disc;  card. 

Usage 


Input : 

I/O  unit  1:  Group  data. 

As  written  by  program  INPUT1  or  INPUTK1. 

I/O  unit  2:  Predefined  set  of  group  numbers  (optional) . 

If  this  input  is  supplied  the  format  must  be  as  written 
by  subroutine  WRITEK.  If  this  input  is  not  supplied  an  end- 
of-file  condition  should  result  when  the  program  attempts  to 

read  it. 


I/O  unit  5: 

Commands . 

Format 

as  follows: 

columns 

contents 

1 

code  letter 

2-5 

first  group  number 

6-9 

second  group  number 

_ 

-  -  -  - 

78-81 

twentieth  group  number 

Output: 

I/O  unit  6: 

Messages  and  test  results. 

I/O  unit  7: 

Final  set  of  group  numbers. 

Format  as  written  by  subroutine  WRITEK 


non  no 
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HOMO 

10 

HOMO 

20 

REAL- ANALYSIS  PACKAGE  -  PROGRAM  "HOMOl". 

HOMO 

30 

HOMO 

40 

HOMO 

50 

REAL  TITLE  (30)  #  R  ( 100)  ,  X  (100)  f  Y  (100)  ,Z(100)  ,T(100)  , 

TITLE2  (10) 

HOMO 

60 

INTEGER  N  (100)  ,  IS  (ICO)  r  M  (100)  ,  IG  (20) 

HOMO 

70 

INTEGER  LETTER (20)/'D','R',*K','M*,*S','L','A'/ 

HOMO 

80 

EQUIVALENCE  ( K  ,  N  G  ,  N  O ) 

HOMO 

90 

INTEGER*2  KEY  (118)  ,  QU/'  6?  '  / 

HOMO 

100 

COMMON/HOMOl/N,T, R,X, Y,Z,  IS,  NG 

HOMO 

110 

REAL  A  (100)  ,B  (ICO)  ,G  (ICO) 

HOMO 

120 

HOMO 

130 

HOMO 

140 

1  FORMAT (• 1 ', 30 A4/'  •/'  TEST  FOR  HOMOGENEITY  OF  FABRIC*/ 

HOMO 

150 

*•  ENTER  '/ 

HOMO 

160 

*'  D  TO  DELETE  GROUPS*/ 

HOMO 

170 

*•  R  TO  RESTORE  GROUPS’/ 

HOMO 

180 

*'  L  TO  LIST  GROUPS  INCLUDED  AND  DELETED*/ 

HOMO 

190 

*•  K  TO  TEST  CONCENTRATION  PARAMETERS'/ 

HOMO 

200 

*•  M  TO  TEST  MEAN  DIRECTIONS*/ 

HOMO 

210 

* '  A  FOR  AUTOMATIC  DELETION  OF  GROUPS  UNTIL  MEANS 

ARE 

HOMOGENEOUSHOMO 

220 

*  V 

HOMO 

230 

*'  S  TO  STOP'/ 

HOMO 

240 

*  •  *  ) 

HOMO 

250 

2  FORMAT (1 X, ' ALL  GROUPS  RESTORED’)  ' 

HOMO 

260 

3  FORMAT (1 X, ’ GROUP' , 14,  •  IS  ALREADY  DELETED*) 

HOMO 

270 

4  FORMAT  (IX, 'GROUP* ,14, •  IS  NOT  DELETED') 

HOMO 

280 

5  FORMAT  (*  DELETED  GROUPS  ARE') 

HOMO 

290 

7  FORMAT  (IX, 2014) 

HOMO 

300 

8  FORMAT  (IX, 'CHI-SQUARE=* ,F8.2, 10X, ' DF=  ' ,14) 

HOMO 

310 

9  FORMAT ( '  GROUP  NUMBER', 14,*  IS  NOT  VALID*) 

HOMO 

320 

6  FORMAT  (A  1 , 2013) 

HOMO 

330 

11  FORMAT  (1  8X,  13,  F7.  1 ,  3F7 . 1 , 2 7X , F9 . 6 ) 

HOMO 

340 

12  FORMAT  (IX,  3  0  A  4  ) 

HOMO 

350 

13  FORMAT ( '  NONE') 

HOMO 

360 

14  FORMAT ( '  GROUP', 14,'  DELETED') 

HOMO 

370 

15  FORMAT  ( '  GROUP', 14,'  RESTORED') 

HOMO 

380 

16  FORMAT ( '  TAIL  PROBABILITY  =*,F6.3/'  •/'  ') 

HOMO 

390 

17  FORMAT  ('  PROBABILITY  COULD  NOT  BE  COMPUTED'/*  •/• 

HOMO 

400 

18  FORMAT ('  INCLUDED  GROUPS  ARE') 

HOMO 

410 

19  FORMAT ( '  F  ST AT I5TIC=  •  , F8 . 2 , 1  OX , • D P= • , 14 , • , •  ,  1 4) 

HOMO 

420 

20  FORMAT  (2110, 4F10. 4,110) 

HOMO 

430 

21  FORM  AT { 1 X, 14, 1 10, 5F 10. 6) 

HOMO 

440 

22  FORMAT (1 X, • THE  FOLLOWING  PREVIOUSLY  DEFINED  DOMAIN 

HAS 

BEEN  SET 

•/  HOMO 

450 

*  IX , 30A4) 

HOMO 

460 

23  FORMAT  (A2) 

HOMO 

470 

24  FORMAT (1 X, ' ENTER  NAME  OF  DOMA IN ' /• S? • ) 

HOMO 

480 

25  FORMAT ( 1 0  A  4 ) 

HOMO 

490 

26  FORMAT (//'  *****  FATAL  ERROR  -  NUMBER  OF  GROUPS  IN 

INPUT  >100. 

NO  HOMO 

500 

♦CAN  DO.  SORRY!  •) 

HOMO 

510 

HOMO 

520 

HOMO 

530 

RE A  D ( 1 )  NN, NV, NO, NPHR, TITLE 

HOMO 

54  0 

IF  (NO. GT. 100) GOT04  000 

HOMO 

550 

READ  (1  )  NO,  IE,  (N  (J)  ,T  (J)  ,X  (J)  ,Y  (J)  ,Z  (J)  ,A  (J)  ,B  (J)  ,  G  (J)  ,  R  ( J)  ,  J  =  1  , 

NO) HOMO 

560 

K  =  N0 

HOMO 

570 

WRITE (6,1) TITLE 

HOMO 

580 

HOMO 

590 
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C  CHECK  FILE  FOR  PREVIOUSLY  DEFINED  DOMAIN 

C 

CALL  READK  ( 2 , TI TLE , LEN FIL , LE N K , KE Y , &  1 1 0 , 5 1 1 0 ) 

DO  60  1=1,  K 
60  IS(I)=0 
I K  E  Y  =  0 

65  IK  E Y  =  IKEY  + 1 

IF {IKEY.GT. LENK) GOTO70 
1=  K E Y  (IKEY) 

IS  (I)  =1 
G0T065 

70  WRITE  (6, 22) TITLE 
GOTO700 
C 

C  SET  ALL  GROUPS  "ON” 

C 

110  DO  115  1=1, K 
115  IS(I)  =  1 
C 

C  WRITE  "?"  AND  READ  NEXT  COMMAND 

C 

120  WRITE (6,23) QU 
READ  (5, 6)  L,  IG 
DO  140  1=1,20 
IF  (L.EQ. LETTER (I) ) GOTO  160 
140  CONTINUE 
GOTO120 

160  GOTO  (200, 300,4  00,500,600,7  00,800,9  00,1000,110  0,1200, 1300,  1400, 
*150  0,160  0,1700,180  0,1900,200  0,2100)  ,1 
C 

C  DELETE  GROUPS 

C 

200  J  =  2 0 

DO  220  1=1,20 

IF  (IG  (J)  . NE.0) GOTO240 

J  =  J-  1 

220  CONTINUE 
240  IF  ( vJ  .  EQ.  0)  GOTO280 
DO  250  1=1, J 
250  IS  (  IG  ( I)  )  =0 
GOTO120 

280  DO  290  1=1, NG 
290  IS(I)=0 
GOTO120 
C 

C  RESTORE  GROUPS 

C 

300  J=20 

DO  3  20  1  =  1,  20 

IF  (IG  (J)  .NE.0) GOTO340 

J  =  J-  1 

320  CONTINUE 
340  IF  (J . EO. 0) GOTO380 
DO  350  1=1, J 
350  IS  (IG  (I)  )  =  1 
GOTO  120 

380  DO  390  1=1, NG 
390  IS(I)  =  1 
GOTO  120 


HOMO  600 
HOMO  610 
HOMO  620 
HOMO  630 
HOMO  640 
HOMO  650 
HOMO  660 
HOMO  670 
HOMO  680 
HOMO  690 
HOMO  700 
HOMO  710 
HOMO  720 
HOMO  730 
HOMO  740 
HOMO  750 
HOMO  760 
HOMO  770 
HOMO  780 
HOMO  790 
HOMO  800 
HOMO  810 
HOMO  820 
HOMO  830 
HOMO  840 
HOMO  850 
HOMO  860 
HOMO  870 
HOMO  880 
HOMO  890 
HOMO  900 
HOMO  910 
HOMO  920 
HOMO  930 
HOMO  940 
HOMO  950 
HOMO  960 
HOMO  970 
HOMO  980 
HOMO  990 
HOMO1000 
HO  MO  1 0 1 0 
HOMO  1  020 
HOMOI 030 
HOMO  1040 
HOMO1050 
HOMO  106  0 
HOMO1070 
HOMO  1 080 
HOMOI 090 
HOMOI 100 
HOMO1110 
HOMOI 120 
HOMOI 130 
HOMOI 140 
HOMOI 150 
HOMO1 160 
HOMOI 170 
HOMOI  180 
HOMOI 190 


no  non  non  on 


24? 


400 


450 


500 

510 


700 


720 


740 


600 


620 


640 


TEST  CONCENTRATION  PARAMETERS 

HOM01200 
HOMO  1 2 1 0 

CONTINUE 

HOKO1220 

CALL  TCPF (U,NDF) 

HOMO1230 

WRITE  (6,8)  U  ,  NDF 

HOMO1240 

DF=NDF 

HOMO  1  250 

CALL  MDCH  (U,DF,P,IER) 

HOM0 1 26  0 

P=1 ,0-P 

HOMO  1270 

IF  (IER.NE.0) GOT04 50 

HOMO1280 

WRITE  (6, 16) P 

HOM0 1 290 

GOTO 1 20 

HOMOI  300 

WRITE  (6,17) 

HOMO1310 

GOTO  1 20 

HOMOI  320 
HOMOI 330 

TEST  MEANS 

HOMO  1  340 
HOMOI 350 

CONTINUE 

HOMOI 360 

CALL  TMDF  (F  ,  ND 1 ,  ND2) 

HOMOI 370 

WR ITE ( 6 , 19) F,ND1,ND2 

HOMOI 380 

CALL  MDFD  (F,ND1 , ND2, P» IER) 

HOMOI 390 

IF (IER.NE.0) GOT0 120 

HOMO  1  400 

P=  1 . 0  -  P 

HOM014 10 

WRITE  (6, 16) P 

HOMOI 420 

GOT0 1 20 

HOMO  1  430 
HOMOI 440 

PRINT  LIST  OF  GROUP  NUMBERS 

HOMO1450 

* 

HOMO  1 460 

CONTINUE 

HOMOI 470 

L=0 

HOM0 1480 

DO  720  1=1, NG 

HOMOI 490 

IF  (IS  (I)  .  EQ  .  0)  GOTO720 

HOMO  1  500 

L=L*1 

HOMO1510 

M  (L)=I 

HOMOI 520 

CONTINUE 

HOM0 1 530 

WRITE  (6, 18) 

HOMOI  54 0 

IF  (L.EQ.0)  WRITE  (6,13) 

HOMOI  550 

IF  (L.NE.0)  WRITE(6,7)  (M(I)  ,I=1,L) 

HOMO1560 

L=0 

HOMOI 570 

DO  740  1=1, NG 

HOMO  1 580 

IF (IS (I) . EQ. 1) GOTO740 

HOMOI 590 

L=L  +  1 

HOMOI 600 

M  ( L)  =1 

HOMO  1610 

CONTINUE 

HOMOI 620 

WRITE  (6,5) 

HOMO  1 6  30 

IF  (L.EQ.0)  WRITE  (6,13) 

HOMOI 640 

IF  (L.NE.0)  WRITE  (6,7)  (M  (I)  ,1  =  1  ,  L) 

HOMOI 650 

GOTO120 

HOMO  1 66  0 
HOM0 1 670 
HOMO  1680 

CONTINUE 

HOMOI 690 

LENK=9 

HOMO  170  0 

DO  620  J= 1 , NO 

HOMO  1 7 1 0 

IF(IS(J).EO.0)  GOTO6  20 

HOMO1720 

LENK=LENK* 1 

HOMOI 730 

KEY  (LENK)  =J 

HOMO  174  0 

CONTINUE 

HOMOI 750 

WRITE  (6,  24) 

HOM0 1 760 

READ  (5,25)  TITLE2 

HOMOI 770 

DO  640  1*1, 10 

HOM0 1780 

TITLE  (16  +  1)  =TITLE2  (I) 

HOMO1790 
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CALL  WRITEK  (7 , TITLE , NO , LE NK , KEY) 

HO M 01 800 

STOP 

HOMO  1  R10 

HOMOI 820 

: 

HOMOI 830 

8  CO 

CONTINUE 

HOMOI 840 

CALL  HOMNS  (A,B,G,&700) 

HOMOI 850 

GOT0 1 20 

HO  MO  1 86  0 

900 

GOTO  120 

HOMO  1 870 

1000 

GOTO120 

HOMOI 880 

1100 

GOTO  120 

HOMO  1  890 

1200 

GOTO 1 20 

HOMOI 900 

1300 

GOTO  120 

HOMO  191 0 

moo 

GOTO120 

HOMO1920 

1500 

GOTO  1  20 

HOM0 1 930 

1600 

GOTO  120 

HOMO  1940 

1700 

GOTO120 

HOMOI 950 

1800 

GOTO  120 

HOMO  1  960 

1900 

GOTO 120 

HOMO  1 970 

2000 

GOTO  120 

HOMOI 980 

2100 

GOTO  120 

HOMO  1  990 

4000 

WRITE  (6,26) 

HOMO2000 

STOP12 

HOMO  201 0 

END 

HOMO2020 

SUBROUTINE  TCPF(U,NDF) 

HOMO2030 

C  COMPUTES  THE  STATISTIC  TO  TEST  FOR  HOMOGENEITY  OF  CONCENTRATION 

HO MO  20 4  0 

C  PARAMETERS  (FISHER  STATISTICS) 

H  O  M  02  05  0 

REAL  R  (100)  ,X  (100)  ,  Y  (100)  ,Z  (100)  ,T  (ICO) 

HOMO2060 

INTEGER  N  (100)  ,IS  (100) 

HOMO2070 

COM  MON/HOMO 1/N ,T,R,X,Y,Z,IS,K 

HOMO2080 

c 

HOMO2090 

c 

HOMO2100 

TT=0 . 0 

HOMO2110 

XX=0.0 

HOMO2120 

YY  =  0 . 0 

HOMO2130 

ZZ=0.0 

HOMO2140 

NT  =  0 

HOMO2150 

L=0 

HOMO2160 

DO  100  1=1 ,  K 

HOMO2170 

IF (IS (I) . EQ.0) GOTO 1 00 

HOMO2180 

TT  =  T  T  ♦  T  ( I ) 

HOMO2190 

XX  =  XX+X  (I) 

HOMO2200 

YY  =  Y  Y  ♦  Y  (I) 

H0M0221 0 

ZZ  =  ZZ  +  Z  (I) 

HOMO  2220 

NT=NT+N ( I) 

HOMO2230 

L=  L+  1 

HOMO2240 

100 

CONTINUE 

HOMO2250 

RT=  SQRT  (XX*XX*YY*YY+ZZ  *ZZ) 

HOMO2260 

RDT=RT/TT 

H0M0227  0 

IF  (RBT.LT.0.44) GOTO200 

HOMO2280 

IF  (RBT.GT.O. 67) GOTO400 

HOMO2290 

GOTO  30  0 

HOMO  2  30 0 

c 

HOMO2310 

200 

SW=0. 0 

HOMO2320 

SWG  =  0 . 0 

HOMO  2330 

SWGG=0 . 0 

H  OMO2340 

DO  220  1=1, K 

HOMO2350 

IF  (IS  (I)  . EQ.0) GOTO220 

HOMO2360 

W  =  5.  0*  (N  (I) -5)  /3.0 

HOMO2370 

G= A  RSI N ( (3 . 0*R (I) ) /2. 2361 ) 

HOMO2380 

WG=W*G 

HOMO2390 

^»TH 
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S  9  =  5  W  +  W 
SWG=SWG*WG 
SWGG=SWGG+WG*G 
220  CONTINUE 
230  U=SWGG-SWG*SWG/SW 
ND  F  =  L-  1 

RETURN  v 

C 

300  SW=0.0 
S  M  G  =  0 . 0 
SWG  G  =  0 . 0 
DO  320  1=1, K 
IF  (IS  (I)  . EQ.O)  GOTO320 
W=  (N  (I)  -4)  /0. 39356 
G=ARSIN  (  (R  (I)  *0.  17595)  /  I.  02  90  3) 

WG=  W*G 
S  W  =  S  W  +  W 
SWG=SWG+WG 
SWGG=SWGG+WG*G 
320  CONTINUE 
330  U=SWGG-SWG*  SWG/SW 
NDF=L- 1 
RETURN 
C 

400  SR=0 . 0 
SV  L  =  0 . 0 
SVI=0. 0 
DO  4  20  1=1  ,  K 
IF (IS  (I)  . EQ.O) GOTO420 
SR=SR+R  (I)  * N  (I) 

V=2 . 0  *  (N  (I)  -1) 

VI=1 .0/V 
SVI=SVI*VI 

VL=  V*  A  LOG  (N  (I)  *  (1 . 0-R  (I)  )  /  V) 

SVL=SVL+VL 
420  CONTINUE 

V=2.0*  (NT-L) 

D= (SVI- 1 . 0/V) /  (3. 0*  (L- 1 ) ) 

4  50  U=  (  V*  A  LOG  (  (NT-SR)/V)  -S  VL)  /  ( 1 . 0*  D) 

NDF--L-  1 

RETURN 

END 

SUFI  ROUTINE  TMDF  (F, NDl, ND2) 

C  COMPUTES  THE  STATISTIC  TO  TEST  FOR  HOMOGENEITY  OP  SAMPLE  MEANS 
C  (FISHER  STATISTICS) 

REAL  R  (100)  ,X  (100)  ,Y(100)  ,Z(100)  ,T(100) 

INTEGER  N  (100)  , IS  (100) 

COM  MON/HOMOI/N ,T,R,X,Y,Z, IS, NG 
C 
C 

TT  =  0 . 0 
SR=0 .0 
XX=0.0 
YY  =  0 . 0 
Z  7,  =  0 . 0 
NN  =  0 
NQ  =  0 

DO  100  1=1, NG 

IF  ( IS  ( I)  .EQ.O)  GOT0 100 

NN=NN+N  (I) 


HOKO24C0 

HOMO2410 

HOMO2420 

HOMO2430 

HOMO2440 

HOMO2450 

HOMO  246  0 

H0M0247  0 

HOMO24B0 

HOMO2490 

HOMO2500 

HOMO  251 0 

HOMO2520 

HOMO2530 

HO MO  2 54  0 

H  OM  02  550 

HOMO2560 

HOMO2570 

HOMO  2580 

HOMO2590 

HOMO2600 

HOMO2610 

HOMO2620 

HOMO2630 

HOMO2640 

HOMO2650 

HOMO2660 

HOMO2670 

HOMO2680 

HOMO2690 

HOMO2700 

H0M0271 0 

HOMO  2720 

HOMO2730 

H0M0274  0 

HOMO2750 

HOMO2760 

HOMO2770 

HOMO2780 

HOMO2790 

HOMO28C0 

HOMO  2810 

HOMO2820 

HOMO2830 

HOMO2840 

HOMO2850 

HOMO2860 

HOMO2870 

HOMO  2880 

HOMO2890 

HOMO2900 

H0M0291 0 

HOMO  2920 

HOMO2930 

HOMO2940 

HOMO2950 

HOMO  2960 

HOMO2970 

HOMO2980 

HOMO2990 


n  n 
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100 

110 

120 

130 

150 


NQ=NQ* 1 
TT=TT  *T  (I) 
XX=XX*X  (I) 
YY  =  Y  Y  *  Y  (I) 
ZZ=ZZ*% (I) 
SR=  SR  ♦  R  (I) 
CONTINUE 


‘N  (I) 


200 


RR=  SQRT  (XX*XX+YY*YY  +  ZZ  *ZZ) 

RR=PP*NN/TT 

RRB  =  PR/N  N 

IF  (RRB.LT.0.32) GOTO 90  1 

F=  (NN-NQ)  *  (SR-RR)  /(  (NN-SR)  *  (NQ-1)  ) 

IF (RRB.GT.0.67) GOTO200 

CALL  XKF (RRB,NN,AK,IE) 

IF (IE. NE.O) GOTO902 
F=F*(1  .0-1. 0/(5. 0*AK*AK)) 

CONTINUE 

ND1=2*NQ-2 
ND2  =  2*  (NN-NQ) 

RETURN 


WRITE  (6,1) RRB 

FORMAT  (//'  ****  SUBROUTINE  TMDF:  R/N  =  • , E 1 1 . 4 , • 

♦LOWABLE  RANGE  FOR  THIS  SUBROUTINE'//) 

STOP  12 

902  WR  ITE  (6,2)  IE 

2  FORMAT (//'  +  ***  SUBROUTINE  TMDF:  RETURN  CODE', 

*  "XKF"') 

5TOP12 

END 

SUBROUTINE  HOM N S ( A , B , G , *) 

DELETES  GROUPS  UNTIL  THE  MEANS 


901 

1 


IS  SMALLER  THAN  AL 


■13,' 


FROM  SUBROUTIN 


PUUro  un i  1  l  u.t  wun.^  ARE  HOMOGENEOUS 
REAL  A  (10C)  ,B  (100)  ,G  (100)  ,X  (100)  ,Y  (100)  ,Z  (100)  , T  ( 1 00)  ,  R  ( 1  00) 
INTEGER  N  (100)  ,IS  (100)  ,NG 
COMMON/HOMOl/N,T,R,X,Y , Z, IS, NG 


2 

3 

4 

5 

16 

19 


100 


FORMAT  (' 
FORMAT  (' 
FORMAT (' 
FORMAT  (' 
FORMAT  ( ' 
FORMAT (' 
FORMAT  (' 


SUBROUTINE  " HOMN3":  R  IS  ZERO') 

GROUP', 14,'  HAS  BEEN  DELETE D  '  , 5X , 1 4, '  GROUPS  REMAIN') 
RETURN  CODE', 13,'  FROM  IMSL  SUBROUTINE  ” M D F D " ' ) 
HOMOGENEITY  OP  MEANS  COULD  NOT  BE  OBTAINED') 
HOMOGENEITY  OP  MEANS  ACCEPTED') 

TAIL  PROBABILITY  ■*,P6.3/'  ') 

F  STATISTIC*' ,F8. 2, 10X, 'DF« ' ,14, ' , '  ,14) 


J' 
S  (J) 


=  1  ,  NG 


200 


CONTINUE 
SX  =  0 .0 
SY  =  0 .0 
SZ=0.0 
NI  =  0 
DO  200 
IF  (I 
N 1=  N I ♦  1 
SX=SX*X  (J) 

SY  =  SY  +  Y  (J) 

SZ=  SZ+  Z  ( J) 

CONTINUE 

RR=  SQRT (SX*SX*SY*SY+SZ*SZ) 


EQ.0) GOTO200 


HOMO3000 
HOMO  30 1 0 
HOMO302C 
HOMO  3030 
HOMO3040 
HOMO3050 
HOMO3060 
HOMO3070 
HOMO3080 
HOMO3090 
HOMO3100 
HOMO3110 
HOMO3120 
HOMO3130 
HOMO 3 140 
HOMO3150 
HOMO 31 60 
HOMO3170 
HOMO3180 
HOM03 190 
HOMO3200 
HOMO3210 
HOMO3220 
HOMO  32  30 
HOMO3240 
HO  M  03  25  0 
HOMO3260 
HOMO3270 
EHOMO32P0 
HOMO3290 
HOMO3300 
HOMO3310 
HOMO  3320 
HOMO3330 
HOMO3340 
HOMO  3350 
H  O  M  O  3  3  6  0 
HOMO  3  370 
HOMO  3 380 
HOMO  3  390 
HOMO  3400 
HOMO3410 
HOMO  3420 
HOMO3430 
HOMO3440 
HOMO3450 
HOMO3460 
HOMO  3470 
HOMO3480 
HOMO  3490 
HOMO3500 
HOMO  35 1 0 
HOMO3520 
HOMO3530 
HOMO  3540 
H  O  MO  3  550 
HOMO3560 
HO  MO  3  570 
HOMO  3580 
HOMO3590 


.  -J  :  im  r,  vrJ>  Jfl  •  «  .  g<  • 


■U  PGi  rq 

'  21*  *Y?.« 


251 


IF  (PR.  F().  0)  WRITE  (6,1) 

II 0  M  03  60  0 

ARR  =  SX/E<R 

HO  MO  36 10 

DP  R  =  S  Y/R  R 

HOMO3620 

GF  R=SZ/RR 

HOMO  3630 

CMI N=1 .000 

HOMO3640 

DO  300  J  =  1 ,  NG 

HOMO3650 

IF  ( IS  (J)  . EQ. 0) GOTO  300 

HOMO  3660 

COS=ARR* A  (J)  +BRR*B  (J)  ♦GRR*G  (J) 

HOMO3670 

IF  (C05.GE.CMIN) GOTO 300 

HOMO3680 

CMI N=C  OS 

HOMO  3690 

JM I N= J 

HOMO 3 700 

300 

CONTINUE 

HOMO  371 0 

IS  (JMIN)  =0 

HOMO3720 

NI=N I- 1 

HO  MO  373  0 

WRITE(6,2) JMIN,NI 

HOMO3740 

CALL  TMDF (F, ND  1  , ND2) 

HOMO3750 

WRITE (6 , 19)  F , N  D 1 , ND  2 

HOMO3760 

CALL  MDFD (F,ND1,ND2,P, IER) 

HOM 03770 

IF (IER)  360,380,360 

HOMO3780 

360 

WRITE  (6, 3)  IER 

HOMO  3790 

RETURN 

HOMO3800 

380 

P= 1 . 0-P 

HOMO  38 1 0 

WRITE  (6 , 16) P 

HOMO3820 

IF  (P-0.05)  400,500,500 

HOMO  3830 

4  00 

IF  (  N I - 2 )  420,420,  100 

HOMO3840 

420 

WRITE  (6,4) 

HOMO3850 

RETURN 

HOMO3860 

500 

WRITE  (6,  5) 

HOMO  3870 

RETURN  1 

HOMO3880 

END 

HOMO3890 

H'E  Ml  "> 
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C 


start 


3 


read 

data 


write 

title 


read 

previous 

group 

numbers 


initialize 
group  flags 
and  group 
count 


K 


M 


returnl 


000000 
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FLOW  DIAGRAM  FOR  PROGRAM  HOMOl 


PART  2 


i  AH!  1  A 
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Subroutine 

TCPF 


initialize 

sums 

71 

1 

initialize 

initialize 

sums 

sums 

- — r — — 

loop  once  for 

_ /  loop  once  for 

J 

each  group 

r“\  each  group 

initialize 

sums 


loop  once  for 
each  group 


compute 

statistic 

compute 

statistic 

compute 

statistic 

L - — , - — J 

c 


return 


3 


C 


return 


3 


c 


return 


3 
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FLOW  DIAGRAM  FOR  PROGRAM  HOMOl  -  PART  4 


1 1 
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Subroutine 

H0MNS 
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Identification 

Program  name: 

INP0TK1 

Program  title: 

Areal  analysis  package  -  data  input  program  (key 
method) . 

Author: 

John  Ramsden 

Organization : 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date : 

1  October  1974 
Program  version  number: 

1 


Appl  icat icn 


Purpose : 

To  read  specified  variables  from  an  input  file  using  a 
key  and  write  the  data  in  a  convenient  form  for  use  by  other 
programs  in  the  areal-analysis  package. 

Method: 

The  program  accepts  as  parameters  the  number  of 
variables  to  be  read  from  each  record  of  the  input  file  and 
the  format  for  reading  those  variables.  The  first  field  in 
the  format  specification  must  refer  to  a  line-type  character 
and  must  be  specified  as  A1.  The  specified  number  of 
variables  must  include  this  field.  Since  the  data  array  is 
declared  as  integer,  and  some  FORTRAN  input  routines  will 
not  allow  data  to  be  read  into  an  integer  variable  with  an 
»F"  format  code  (that  is,  as  a  real  number) ,.  all  input  data 
must  be  in  integer  form  and  all  fields  must  be  specified 


\ 9 
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with  an  "I"  format  code.  If  it  is  desired  to  convert 
integers  to  real  numbers  before  they  are  placed  in  the 
output  file,  an  additional  set  of  parameters  may  be  added  to 
the  parameter  card  containing  the  input  format.  These 
parameters  specify  which  input  variables  are  to  be  converted 
to  real  numbers  and  how  many  decimal  places  each  should 
have . 

Which  records  of  the  input  file  are  read  is  determined 
by  a  "key"  of  reccrd  numbers.  At  each  record  of  the  input 
file  whose  number  appears  in  the  key  the  program  reads  the 
specified  number  of  fullword  variables  using  the  specified 
format.  The  data  are  written  unformatted  into  the  output 
file  as  a  header  record  followed  by  data  records.  Each 
output  data  record  except  the  last  always  contains  the  data 
from  100  input  records. 

The  output  data  records  are  first  written  onto  a 
scratch  file.  After  all  the  input  records  have  been  read, 
the  header  record  is  written  onto  the  output  file,  and  the 
output  data  records  are  then  copied  from  the  scratch  file  to 
the  output  file. 

If  the  first  byte  of  the  first  input  record  contains 
the  letter  "TM  this  record  is  assumed  to  be  a  title  record 
and  counting  of  input  records  begins  with  record  2. 
Otherwise  counting  of  the  input  records  begins  with  record 
1.  Since  only  those  input  records  are  read  whose  numbers 
appear  in  the  key,  an  end-of-file  condition  resulting  from 
an  attempt  to  read  the  input  file  always  indicates  an  error, 
and  the  program  stops  after  printing  a  message.  After 
processing  the  input  records  as  directed  by  a  key,  the 
program  attempts  to  read  another  key.  If  an  end-of-file 
condition  results  the  program  stops  normally.  If  another  key 
is  read  the  input  file  is  rewound  and  the  process  repeated 
using  the  new  key.  In  this  way  any  number  of  sets  of  data 
may  be  extracted  from  the  input  file  and  written 
sequentially  on  the  output  file. 

Data  restrictions: 

Maximum  length  of  the  given  format  is  60  characters. 
Maximum  number  of  variables  read  from  each  input  record  is 
10.  Maximum  number  of  input  record  numbers  in  one  key  is 

5000. 

Timing : 

t=0 . OOUpv ;  t=CPU  time  in  seconds;  p=total  number  of 
data  points;  v=number  of  variables. 


.  .  :■ 
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Implementation 


Original  installation: 


Organization: 
Computer : 

I/O  devices: 

Soft  ware : 


University  of  Alberta  Computing  Services. 

IEM  360  model  67  (1024K)  . 

card,  disc,  tape,  typewriter  terminals  and 
display  terminals. 

Michigan  Terminal  System  ( KTS)  ,  a  virtual- 
storage  time-sharing  system. 


Source  language: 
FOETBAN  IV 


Subroutines  and  function  subprograms  required: 

The  following  subroutine  from  JB  subroutine  library: 
BEADK. 

Size  : 


Total  program  size  including  all  required  subroutines 
is  17464  bytes. 


Bequirements  for  I/O  devices: 


I/O 

unit 

no. 

read/ 

write 

Maximum  FORTRAN 
record  length 
(bytes) 

device 

control 

statements 

suggested 

device 

1 

read 

determined  by 

rewind 

tape;  disc; 

given  format 

cards. 

2 

read 

80  formatted 

none 

disc. 

5 

read 

102  formatted 

none 

cards. 

6 

wr  ite 

35  formatted 

none 

line  printer 

7 

read. 

8+4C0*nv, 

rewind 

tape;  disc. 

write 

unformatted 

8 

wr  ite 

84-4C0*nv, 

none 

tape;  disc. 

unformatted 


nv=number  cf 


variables* 
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Usage 


Input : 

I/O  unit  1:  input  data  file. 

All  records  have  the  same  format  unless  the  first 
record  is  a  title  record,  in  which  case  the  first  record 
contains  the  letter  "T,!  in  column  1  and  a  title  in  columns 

2-121. 

I/O  unit  2:  keys. 

Format  as  written  by  subroutine  WHITEK. 

I/O  unit  5:  parameters. 

One  recording  containing 
columns  contents 

1-2  number  of  variables  to  be  read 

3-62  format 

63-102  up  to  20  2-digit  numbers.  These  numbers  are 

interpreted  in  pairs:  the  first  number  of  each  pair 
is  taken  as  the  number  of  a  variable  to  be  converted 
to  a  real  number,  and  the  second  number  of  each  pair 
is  taken  as  the  number  of  decimal  places.  For 
example,  the  pair  of  numbers  "  4  3"  indicates  that 
the  fourth  variable  (not  counting  the  line-type 
character)  is  to  be  divided  by  10**3  and  the  result 
placed  in  the  output  record  as  a  real  number. 

Output: 

I/O  unit  6:  messages. 

The  program  writes  the  number  of  output  data  records. 
Error  messages  are  self-explanatory. 

I/O  unit  7:  scratch  file. 

Output  data  records  are  stored  in  this  file  until  they 
are  copied  to  the  output  file. 

I/O  unit  6:  output  file. 

Output  is  written  unformatted  on  this  file  as  a  header 
record  followed  by  data  records.  Each  header  record  contains 
four  fullword  integers  followed  by  the  120-byte  title.  The 
four  integers  contain  (1)  the  total  number  of  words  in  this 
set  of  data,  (2)  the  number,  NV,  of  variables  read  from  each 
input  record,  (3)  the  total  number  of  input  records  read  in 
this  set  of  data,  (4)  the  number  of  output  data  records 
following  the  header  record. 


- 


. 
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Each  data  record  contains  two 
followed  by  the  data  from  up  to  100  input 
consists  of  the  variables  from  the  first 
followed  by  the  variables  from  the  second 
and  so  on.  The  two  leading  integers  conta 
N,  of  input  records  included  in  this  out 
100)  f  and  (2)  the  number  of  words  of  dat 
record  (  =  N*NV)  . 


fullword  integers 
records.  The  data 
input  record  read, 
input  record  read, 
in  (1)  the  number, 
put  record  (maximum 
a  in  this  output 


•  .  •  -  •  • 
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c 

c 

c 

c 

c 


1 

2 

3 

4 

5 

6 

7 

10 

11 


INPK 

10 

INPK 

20 

L-ANALYSIS  PACKAGE  -  PROGRAM  "INPUTK1". 

INPK 

30 

INPK 

40 

INPK 

50 

INTEGER  FMT (15)  , TITLE (30)  , DATA  (1000)  ,CT/'T'/,IC (20) 

INPK 

60 

REAL  RDATA (1000) 

INPK 

70 

INTEGER*  2  KEY  (5018) 

INPK 

80 

LOGICAL* 1  TITL/. FALSE./ 

INPK 

90 

EQUIVALENCE  (D  AT  A , R  DAT  A) 

INPK 

100 

INPK 

110 

INPK 

120 

FORMAT  ( 1 5 A 4 ) 

INPK 

130 

FORMAT  (110) 

INPK 

140 

FORMAT  ( A  1 ) 

INPK 

150 

FORMAT  (/IX,  *****  ERROR  IN  KEY  FILE  ****•) 

INPK 

160 

FORMAT (/IX ,  • ****  ERROR  -  END  OF  DATA  FILE  ****•) 

INPK 

170 

FORMAT  (IX, 15, 1X,30A4) 

INPK 

180 

FORMAT  (12, 15A4, 2012) 

INPK 

190 

FORMAT  (IX, 14, •  PHYSICAL  DATA  RECORDS') 

INPK 

200 

FORMAT  (A  1 ) 

INPK 

210 

INPK 

220 

READ  PARAMETERS 

INPK 

230 

INPK 

240 

READ  (5,7) NV  AR, FMT,  IC 

INPK 

250 

NVAR=NVAR- 1 

INPK 

260 

INPK 

270 

IS  FIRST  LINE  A  TITLE  LINE? 

INPK 

280 

INPK 

290 

REWIND  1 

INPK 

300 

READ  (1 , 3)  LINTYP 

INPK 

310 

IF (LINT YP. EQ.CT) TITL®. TRUE. 

INPK 

320 

INPK 

330 

READ  NEXT  KEY 

INFK 

340 

INPK 

350 

CONTINUE 

INPK 

360 

CALL  READK ( 2 , T ITLE , NFI LE, LENK , KEY, 52 4 0 , 6260) 

INPK 

370 

WRITE (6,6) LENK, TITLE 

INPK 

380 

REWIND  1 

INPK 

390 

IF (TITL) READ  (1) 

INPK 

400 

REWIND  7 

INPK 

410 

LNR  Q=0 

INPK 

420 

L  =  0 

INPK 

430 

NTOT=0 

INPK 

440 

NPII  R  =  0 

INPK 

450 

GOTO  300 

INPK 

460 

STOP 

INPK 

470 

WR  ITE  (6,4) 

INPK 

480 

STOP  12 

INPK 

490 

INPK 

50  0 

READ  NEXT  BLOCK  OF  DATA 

INPK 

510 

INPK 

520 

CONTINUE 

INPK 

530 

N=  1 

INPK 

54  0 

IR=  1 

INPK 

550 

IE=  N  VA  R 

INPK 

560 

L=L  +  1 

INPK 

570 

IF (L.GT.LENK) GOTO350 

INPK 

580 

LNR=KEY  (L) 

INPK 

590 
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NSKIP=LNR-LNRQ- 1 
LNRQ=LNR 

IF  (NS KIP. EQ.O) GOTO330 
DO  320  1=1 , NSK IP 
320  ROAD  (1  ,1  1  ,  END=  340)  DUMMY 
3  30  READ(1  ,  FMT, END=340)  LINTYP,  (DATA  (I) 
N=  N  +  1 

I13=IIHNVAR 
I E= I E*  N V  A  R 
IF  (N. LE.  100) GOTO310 
K=  1 

GOTO360 
340  WRITE(6,5) 

STOP  12 

WRITE  NEXT  BLOCK  OF  DATA 

350  K=2 
360  N=N-  1 

IB=IB-NVAR 

IE  =  I E-  N  V  A  R 

IF  (N. EQ. 0) GOTO400 

NTOT  =  N  TOT ♦ N 

DO  370  J=2 , 20, 2 

IV= IC  (J-1 ) 

IF  (  IV. EQ.O) GOTO 3  80 
FACT3 1 ,0/10.0**IC (J) 

365  RDATA  (IV) =DATA  (IV) *FACT 
IV  =  I V+  N V  A  R 
IF  (IV. LE. IE) G0T0365 
370  CONTINUE 

380  WRITE  (7)  N,IE,  (DATA  (I)  ,  1  =  1  ,  IE) 

NPHR  =  NPHIl+1 
GOTO  (300,400)  , K 

RE-WRITE  DATA  WITH  TOTALS 

400  REWIND  7 

NN*N VAR*NTOT 

WRITE  ( B )  NN, NVAR,NTOT,NPHR,TITLE 

DO  4  30  J  3  1  ,  NP1IR 

RE  AD  (7)  N,  IE,  (DATA  (I)  ,1  =  1,  IE) 

430  WR ITE  (fl) N ,  IE,  (DATA  (I)  , I«1 ,IE) 
WRITE (6, 10) NPHR 
440  GOTO200 
END 


INPK  600 
IN  PK  610 
INPK  620 
INPK  630 
INPK  64  0 

I=IB, IE)  INPK  660 

INPK  660 
INPK  670 
INPK  680 
INPK  690 
INPK  700 
INPK  710 
INPK  720 
INPK  730 
INPK  740 
INPK  750 
INPK  760 
INPK  770 
INPK  780 
INPK  790 
INPK  800 
INPK  810 
INPK  820 
INPK  830 
INPK  840 
INPK  850 
INPK  860 
INPK  870 
INPK  880 
INPK  890 
INPK  900 
INPK  910 
INPK  920 
INPK  930 
INPK  940 
INPK  95  0 
INPK  960 
INPK  970 
INPK  980 
INPK  990 
I N  PK 1 00  0 
INPK  1010 
I NPK1020 
INPK  1030 
INPK1040 
INPK  1050 
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FLOW  DIAGRAM  FOR  PROGRAM  INPUTK1  -  PART  1 


26^ 


FLOW  DIAGRAM  FOR  PROGRAM  INPUTK1  -  PART  2 


,  ;«  •  I, 


266 
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Identification 

Program  name: 

INPUT1 

Program  title: 

Areal-analysis  package  -  data  input  program. 

Author : 

John  Ramsden 
Organization : 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date : 

1  October  1974 
Program  version  number: 

1 


Application 


Purpose: 

To  read  specified  variables  from  an  input  file  and 
write  the  data  in  a  convenient  form  for  use  by  other 
piograms  in  the  areal-analysis  package. 

Method: 

The  program  accepts  as  parameters  the  number  of 
variables  to  be  read  from  each  record  of  the  input  file  and 
the  format  for  reading  those  variables.  The  first  field  in 
the  format  specification  must  refer  to  a  line-type  character 
and  must  be  specified  as  A1.  The  given  number  of  variables 
must  include  the  line-type  character.  Since  the  data  array 
is  declared  as  integer,  and  some  FORTRAN  input  routines  will 
not  allow  data  to  be  read  into  an  integer  variable  with  an 
"F"  format  code  (that  is,  as  a  real  number) ,  all  input  data 
must  be  in  integer  form  and  all  fields  must  be  specified 
with  an  ’'I"  fcrmat  cede.  If  it  is  desired  to  convert 
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integers  to  real  numbers  before  they  are  placed  in  the 
output  file,  an  additional  set  of  parameters  may  be  added  to 
the  parameter  card  containing  the  input  format.  These 
parameters  specify  which  input  variables  are  to  be  converted 
to  real  numbers  and  how  many  decimal  places  each  should 
have . 


At  each  data  record  in  the  input  file,  the  program 
reads  the  specified  number  of  one-word  variables  using  the 
specified  format.  The  data  are  written  unformatted  onto  the 
output  file  as  a  header  record  followed  by  data  records. 
Each  output  data  record  except  the  last  always  contains  the 
data  from  100  input  records. 

The  output  data  records  are  first  written  onto  a 
scratch  file.  After  all  the  input  records  have  been  read, 
the  title  record  is  written  onto  the  output  file,  and  the 
output  data  records  are  then  copied  from  the  scratch  file  to 
the  output  file. 

After  each  set  of  input  records  (terminated  by  a 
delimiter  record)  has  been  processed,  the  program  attempts 
to  read  another  title  record.  If  an  end-of-file  condition 
results,  the  program  terminates  normally.  If  another  title 
record  is  read,  the  program  continues  as  before  to  process 
another  set  of  input  records.  If  the  next  record,  is  not  a 
title  record,  the  program  stops  after  writing  an  error 
message. 

Data  restrictions: 

Maximum  length  of  the  given  format  is  60  characters. 
Maximum  number  of  variables  read  from  each  input  record  is 
10. 

Timing : 

t=0 . 0035pv ;  t=CPU  time  in  seconds;  p=total  number  of 
data  points;  v=number  of  variables. 


Implementation 


Original  installation: 


Organization: 
Computer : 

I/O  devices: 

Software : 


University  of  Alberta  Computing  Services. 

I  EM  360  model  67  (1024K). 

card,  disc,  tape,  typewriter  terminals  and 
display  terminals. 

Michigan  Terminal  System  (MTS) ,  a  virtual- 
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storage  time-sharing  system. 


Source  language: 

FORTRAN  IV 

Subroutines  and  function  subprograms  required: 
None . 

Size : 


6336  bytes. 


Requirements  for  I/O  devices: 


I/O 

unit 

no. 

read/ 

write 

Maximum  FORTRAN 
record  length 
(bytes) 

device 
control 
statement  s 

suggested 

device 

1 

read 

determined  by 

rewind 

tape;  disc. 

given  format 

5 

read 

102  formatted 

none 

cards. 

6 

write 

35  formatted 

none 

line  printer 

7 

read. 

8+400*nv, 

rewind 

tape;  disc. 

write 

unformatted 

8 

write 

8+400*ny, 

none 

tape;  disc. 

unformatted 

nv=numbei  of  variables. 


Usage 


Inpu 

t: 

I/O 

unit 

1 :  in 

put 

The 

file 

cc 

Each 

set 

of  data 

and 

followed 

by 

ains  one  or  several  sets  of  data  records, 
records  must  be  preceded  by  a  title  record 
a  delimiter  record.  The  title  record  must 
contain  the  letter  "I"  in  column  1  and  the  title  in  columns 
2-121.  The  data  records  may  contain  any  character  except  the 
letter  "T"  as  the  line-type  character.  The  delimiter  record 
must  contain  the  letter  "T"  as  the  line-type  character. 


I/O  unit  5:  parameters. 

Cne  recording  containing 
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columns  contents 

1-2  number  of  variables  to  be  read 

3-62  format 

63-102  up  to  20  2-digit  numbers.  These  numbers  are 

interpreted  in  pairs:  the  first  number  of  each  pair 
is  taken  as  the  number  of  a  variable  to  be  converted 
to  a  real  number,  and  the  second  number  of  each  pair 
is  taken  as  the  number  of  decimal  places.  For 
example,  the  pair  of  numbers  '•  4  3”  indicates  that 
the  fourth  variable  (not  counting  the  line-type 
character)  is  tc  be  divided  by  10**3  and  the  result 
placed  in  the  output  record  as  a  real  number. 

Output: 


I/O  unit  6:  messages. 

The  program  writes  the  number  of  output  data  records. 
Error  messages  are  self-explanatory. 


I/O  unit  7:  scratch  file. 

Output  data  records  are  stored  in  this  file  until  they 
are  copied  to  the  output  file. 


I/O  unit  8:  output  file. 

Output  is  written  unformatted  on  this  file  as  a  header 
record  followed  by  data  records.  Each  header  record . contains 
four  f ullwcrd  integers  followed  by  the  120-byte  title.  The 
four  integers  contain  (1)  the  total  number  of  words  in  this 
set  of  data,  (2)  the  number,  NV,  of  variables  read  from  each 
input  record,  (3)  the  total  number  of  input  records  read  in 
this  set  of  data,  (4)  the  number  of  output  data  records 
following  the  header  record. 

Each  data  record  contains  two  fullword  integers 
followed  by  the  data  from  up  to  100  input  records.  The  dat 
consists  of  the  variables  from  the  first  input  record  read, 
followed  by  the  variables  from  the  second  input  record  read, 
and  so  on/lhe  two  leading  integers  contain  (1)  the  number, 
N  cf  input  records  included  in  this  output  record  (maximum 
iSoj/and  (2)  the  number  of  words  of  data  in  this  output 

record  (=N*NV) . 
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c 

c 

c 

c 

c 


c 

c 

c 


IN  PT 

10 

I  NPT 

20 

AREA 

-ANALYSIS  PACKAGE  -  PROGRAM  " 

INPUT1". 

I  N  PT 

30 

I N  PT 

40 

I  N  PT 

5  0 

INTEGER  FMT  (15)  ,CT/'  T' /, TITLE  (30) 

I N  PT 

60 

<■ 

,DATA  (1000)  ,IC (20) 

I  N  PT 

70 

REAL  R DATA  (1000) 

IN  PT 

80 

EQUIVALENCE  (DAT  A,  RDAT A) 

I  N  PT 

90 

IN  PT 

100 

I  NPT 

1  10 

1 

FORMAT  ( 1  5A  4 ) 

I N  PT 

120 

2 

FORMAT  (110) 

IN  PT 

130 

3 

FORMAT  (A  1 »  30  A4 ) 

I  NPT 

140 

4 

FORMAT (IX, 30A4) 

IN  PT 

150 

7 

FORMAT  (IX, • *****  ERROR  -  TITLE  MISSING 

IN  DATA  FILE  **♦**•) 

IN  PT 

160 

8 

FORMAT  (12, 15A4,20I2) 

I  NPT 

170 

9 

FORMAT  (IX, 30A4) 

IN  PT 

180 

10 

FORMAT  (IX, 14, •  DATA  POINTS ', 5X, 14 , •  PHYSICAL  RECORDS') 

I  NPT 

190 

11 

FORMAT  (IX, 14,'  VARIABLES' /I  X, 

•FORMAT*', 

25  A4) 

INPT 

200 

* 

IN  PT 

210 

INPT 

220 

RE  A  D  (5 , 8)  N  V  AR  ,  FMT,  IC 

INPT 

230 

WRITE  (6,11)  NVAR, FMT 

INPT 

240 

NVAR=N VAR-  1 

INPT 

250 

INPT 

260 

IS  NEXT  LINE  A  TITLE? 

INPT 

270 

INPT 

280 

140 

REWIND  7 

INPT 

290 

READ  (1, 3, END=500) LI NTYP, TITLE 

INPT 

300 

WRITE  (6,9) TITLE 

INPT 

310 

IF (LINTYP. NE.CT) GOTO900 

INPT 

320 

200 

NTOT=0 

INPT 

330 

NPHF=0 

INPT 

340 

INPT 

350 

READ  AND  WRITE  NEXT  BATCH  OF 

DATA 

INPT 

360 

IN  PT 

370 

220 

N=  1 

INPT 

380 

ID  =  1 

INPT 

390 

IE=  N V  A  R 

INPT 

400 

240 

READ(1 ,FMT, END  =  290) LINTYP,  (DATA (I)  ,I  =  IB 

ME) 

INPT 

410 

IF (LINTYP. EQ.CT) GOTO290 

INPT 

420 

N  =  N  ♦  1 

INPT 

430 

IB=ID*NVAR 

INPT 

440 

IE=  I  E+  NV  A  R 

INPT 

450 

IF (N ,LE.  100) GOTO240 

INPT 

460 

K=  1 

INPT 

470 

GOTO  30  0 

INPT 

480 

INPT 

490 

290 

K  =  2 

INPT 

500 

300 

N=  N  - 1 

INPT 

510 

II3=IB-NVAR 

INPT 

520 

IE=  TE-NV AR 

INPT 

530 

TF  (N.EQ. 0) GOTO  360 

INPT 

540 

NTOT* NTOT  +  N 

INPT 

550 

DO  340  J  =2 , 20 , 2 

INPT 

560 

IV=IC  (J-1) 

INPT 

570 

IF  ( IV. EQ. 0) GOTO 350 

INPT 

580 

FACT* 1.0/10.0**IC(J) 

INPT 

590 

t 


s  i -a  < 

w  ♦toti 


n  n  n 
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330  RDATA (IV) =  DATA  (IV) +  FACT 
IV=  IV+NVAE 
IF (IV. LE. IE) GOTO330 
340  CONTINUE 

3  50  WRITE  (7)  N,  IE,  (DATA  (I)  ,  1  =  1  ,  IE) 
NPHR=NPIIR*  1 
GOTO  (220, 360)  , K 

RE-WRITE  DATA  WITH  TOTALS 

360  REWIND  7 

NN  =  N  VA  R  +  NTOT 

WRITE  (8)  NN, NVAR,NTOT, NPHR, TITLE 

DO  30Q  J=1 , NPHR 

READ  (7)  N,  IE,  (DATA  (I)  ,  1  =  1 ,  IE) 

3  90  WRITE  (9)  N,  IE,  (DATA  (I)  ,1=1,  IE) 
WRITE(6, 10)  NTOT , N  PH  R 
400  IF  (LINTYP. EQ.CT) GOTO140 
500  STOP 

900  WRITE (6,7) 

STOP  1 2 


INPT  600 
IN  PT  610 
INPT  620 
INPT  630 
INPT  640 
INPT  650 
INPT  660 
INPT  670 
INPT  680 
INPT  690 
INPT  700 
INPT  710 
INPT  720 
INPT  730 
INPT  740 
INPT  750 
INPT  760 
INPT  770 
INPT  780 
INPT  790 
INPT  800 
INPT  810 
INPT  820 
INPT  830 


END 
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FLOW  DIAGRAM  FOR  PROGRAM  INPUT!  -  PART  1 


FLOW  DIAGRAM  FOR  PROGRAM  INPUT1  -  PART  2 
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SECTION  1  :  PROGRAM  IDENTIFICATION 


PROGRAM  TITLE: 

Search/retrieval  program  for  identical-record  data  files 

PROGRAM  CODE  NAME: 

KEY4 

WRITER: 

John  Ramsden 

ORGANIZATION: 

Department  of  Geology,  University  of  Alberta,  Edmonton,  Alberta 


DATE: 


7  December  1973 


VERSION: 


Zero 


SOURCE  LANGUAGE: 
FORTRAN  IV 


AVAILABILITY: 

Available  from  Dr.  G.  Herget 

Elliot  Lake  Laboratory 
CANMET,  EMR 
P.0.  Box  100 
Elliot  Lake,  Ontario 
P5A  2J6 
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ABSTRACT: 

This  program  searches  a  data  file  containing  identical-format 
records  for  those  records  satisfying  a  given  combination  of 
conditions.  It  either  copies  those  records  into  a  separate  file,  or 
simply  outputs  the  numbers  of  those  records. 

SECTION  2:  ENGINEERING  DOCUMENTATION 

NARRATIVE  DESCRIPTION: 

This  program  will  search  a  data  file  for  those  records  satisfying 
a  given  combination  of  conditions.  It  will  either  store  the  numbers 
of  those  records,  or  move  those  records  into  a  separate  file. 

METHOD  OF  SOLUTION: 

The  program  performs  a  series  of  discrete  operations,  each 
operation  being  initiated  by  a  parameter  card.  These  operations  are 
of  two  kinds:  those  that  involve  a  condition  ("SCAN"  operations), 
and  those  that  do  not.  If  the  operation  is  of  the  first  kind,  the 
program  examines  the  data  file  and  stores  the  numbers  of  those  data 
records  that  satisfy  the  given  condition  (involving  one  field  of  the 
data  record).  Depending  on  the  parameters,  the  program  will  examine 
either  the  entire  data  file  or  a  subset  of  the  data  file  identified  in 

a  previous  operation. 

Operations  that  do  not  involve  a  condition  require  some  manipu- 
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lation  of  the  results  of  previous  operations  to  produce  a  new  set  of 
record  numbers.  The  data  file  is  not  examined. 

On  completion  of  any  operation  it  is  possible  to  (1)  save 
permanently  the  set  of  record  numbers  produced  by  the  operation,  and/or 
(2)  actually  retrieve  the  data  records  whose  numbers  belong  to  that 
set  and  place  them  in  a  separate  file.  It  is  also  possible  to  input 
sets  of  record  numbers  saved  from  previous  runs. 

PROGRAM  CAPABILITIES: 

The  records  of  the  data  file  must  all  have  the  same  length  and 
format. 

The  program  is  presently  designed  for  a  data  file  containing 
112-byte  records.  The  present  limit  on  the  size  of  a  subset  of  the 
data  file  that  can  be  defined  is  5000  records.  These  limits  may  be 
changed  as  described  below. 

' 

If  the  program  is  to  be  used  on  a  file  whose  records  are  not 
112  bytes  long,  the  sizes  of  the  vectors  "line"  and"bline"  in  sub¬ 
routine  "nretr"  must  be  changed,  as  well  as  format  statement  number  1 

in  the  same  subroutine. 

’ 

j 

To  change  the  maximum  size  of  a  subset  of  a  data  file  that  can 


be  handled,  the  dimensions  of  the  variables  "keyl",  l!key2"  and  "key3" 
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in  all  program  segments  except  "posn",  "rkey",  "read"  and  "write" 
must  be  changed  to  the  new  maximum  plus  18.  The  dimension  of  "key"  in 
subroutines  "read"  and  "write"  must  be  similarly  changed. 

If  the  sizes  of  these  arrays  are  changed,  the  maximum  length  of 
unformatted  records  temporarily  stored  on  the  device  assigned  to  I/O 
unit  2  will  also  change,  and  will  be  equal  to  the  length  of  the  array 
"key3"  plus  one  full  word  (plus  words  used  by  the  system). 

DATA  INPUTS: 

There  are  three  essential  inputs.  One  is  the  data  file.  The 
second  is  a  table  identifying  the  named  fields  within  the  data  record. 
The  third  is  the  set  of  instructions  giving  the  conditions  to  be 
searched  for. 

I/O  uni t  1 :  The  data  file 

The  records  of  the  data  file  must  all  have  the  same  length  and 
format.  The  program  may  be  modified  for  any  record  length  as  described 
j  above.  Within  the  data  record,  integer  fields  of  any  length,  and 
alpha  fields  of  up  to  four  characters  are  defined  by  field-definition 

cards. 

I/O  unit  3:  Field-definition  cards 

These  have  the  following  format. 

col  contents 

1-8  field  name 


■ 


i  iOl  ro:'-  *  -1  ■,  n-V 
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9-34  blank 

35-43  FORTRAN  format  defining  field 

e.g.  (51 X ,15)  ('I1  or  'A'  format  only) 

There  may  be  from  1  to  99  field-definition  cards,  preceded  by  one 
card  containing  the  number  of  field-definition  cards  right-justified 
in  columns  1  and  2. 

I/O  unit  4:  Input  sets  of  record  numbers 
As  generated  by  the  program. 

I/O  unit  5:  Parameter  cards 


These  contain  fixed  parameter  fields  as  follows. 


number 

name 

col umns 

1 

label  1 

1-8 

2 

operation 

10-13 

3 

1 abel 2 

15-22 

4 

field  name 

24-31 

5 

relational  operator 

33-34 

6 

alpha  value 

36-39 

7 

first  numeric  value 

41-48 

8 

second  numeric  value 

50-57 

9 

1 abel 3 

59-66 

10 

'save'  character 

68 

11 

'retrieve'  character 

69 

All  fields  are  left-j 

ustified  alphanumeric 

except  7  and 

which  are  ri ght-justi fi ed 

i nteger . 

Order  of  Input: 

If  I/O  units  3,  4,  and  5  are  all  assigned  to  the  same  input 


Jiffc  rd 


:iuqnl  o  a 
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device,  the  order  of  input  must  be  as  follows:  field-definition  cards 

I  j  '  §?,  /'  '  .  '■*'  •  :  ",  ‘  > 

first,  followed  by  parameter  cards.  One  and  only  one  previously 

saved  set  of  record  numbers  must  immediately  follow  each  parameter 
card  that  specifies  a  "READ"  operation. 


PROGRAM  OPTIONS: 

There  are  6  operation  codes:  SCAN,  READ,  COMM,  PLUS,  LESS, STOP 


SCAN 


The  ‘scan1  operation  involves  examining  the  data  file  or  some 

subset  of  it  and  storing  the  numbers  of  those  data  records  satisfying 

a  given  condition,  'label 2'  identifies  the  subset  of  the  data  to 

be  examined.  If  ' 1  a  be  1 2 '  is  blank  the  entire  data  file  is  examined. 

'field  name'  is  one  of  the  field  names  defined  on  the  field-definition 

cards,  'relational  operator'  is  one  of  the  following: 

EQ  (equal  to)  NE  (not  equal  to) 

LT  (less  than)  NL  (not  less  than) 

GT  (greater  than)  NG  (not  greater  than) 

GE  (greater  than  or  LE  (less  than  or  equal  to) 

equal  to) 

IR  (in  range)  OR  (outside  range) 


If  'field  name'  was  defined  with  an  'A'  format  code,  a  character 
string  is  to  be  placed  in  parameter  field  6,  and  relational  operators 
other  than  'EQ'  and  'NE'  should  not  be  used.  If  'field  name'  was 
defined  with  an  ' I '  format  code,  then  a  single  integer  is  to  be  placed 
in  parameter  field  7  for  all  relational  operators  other  than  'IR'  and 


~  •  'a  -  <  v  c  woTf  n 


r 


q  .nr  b^efq  i 


&  toi  >f  ;  or 
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'OR',  while  for  these  relational  operators  the  lower  and  upper  limits 
of  the  range  (respectively)  are  to  be  placed  in  parameter  fields  7  and 
8.  The  range  is  considered  to  include  the  lower  limit  and  exclude  the 

upper  limit. 

READ 

This  operation  code  causes  the  program  to  read  from  I/O  unit  4  a 
set  of  record  numbers  (saved  from  a  previous  run). 

COMM 

This  code  causes  the  generation  of  a  set  of  record  numbers  con¬ 
sisting  of  those  record  numbers  that  belong  to  both  of  the  sets 
identified  by  'label  1'  and  1 abel 2 *  . 

I 

I 

PLUS 

This  code  causes  the  generation  of  a  set  of  record  numbers  con¬ 
sisting  of  those  record  numbers  that  belong  to  either  of  the  two  sets 

identified  by  'label  1'  and  1  a  be 12*. 

■ 

LESS 

This  code  causes  the  generation  of  a  set  of  record  numbers  con¬ 
sisting  of  those  record  numbers  that  belong  to  the  set  identified  by 

'label  V  but  do  not  belong  to  the  set  identified  by  ' 1 abel 2 ' . 

■ 

STOP 

This  code  causes  the  program  to  stop. 
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For  all  operation  codes  except  STOP*  the  following  parameters 
have  the  same  function.  ' 1 abel 3*  is  the  label  to  be  associated 
with  the  set  of  record  numbers  generated  by  the  current  operation. 

If  the  'save  character'  is  non-blank  the  set  of  record  numbers 
generated  by  the  current  operation  will  be  saved.  If  the  'retrieve 
character'  is  non-blank  the  data  records  correspond!' ng  to  the  set  of 
record  numbers  generated  by  the  current  operation  will  be  copied  into 
a  separate  file. 

PRINTED  OUTPUT: 

The  program  prints  a  message  as  each  operation  is  completed. 
OTHER  OUTPUTS: 

I/O  unit  7:  saved  sets  of  record  numbers 

Each  set  of  record  numbers  saved  is  written  out  in  80-byte 
lines,  numbered  sequentially  in  columns  78-80.  The  first  two  lines 
contain  the  label,  the  number  of  records  in  the  data  file,  and  the 
number  of  record  numbers  in  the  set.  Each  subsequent  line  contains 
record  numbers  in  18  adjacent  4-column  fields  in  columns  1  to  72. 
Unused  fields  on  the  last  line  contain  zeros. 

I/O  unit  8:  retrieved  data  records 

For  each  subset  of  the  data  file  retrieved,  the  program  writes 
on  I/O  unit  8  one  record  containing  the  associated  label,  followed  by 
the  retrieved  data  records,  followed  by  one  blank  record. 


FLOW  CHART: 


2  ir-  •  &V6? 


'•  v-  i 


SCAN 
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- 

: 


READ 


SoW 


.  V\i  . 
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: 


bn 
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subroutines 

RFIND,  RIR,  R0R,  R0S 


subroutines 

RKEEP,  RIRK,  R0RK,  R0SK 


. 


2«?R,R«?R,I  l.UI 


subroutine  MAND 


GHA  1  enijiii  :dii* 


28? 


subroutine  MN0T 


rtyMM  wiiwoKlu,  •  I 
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SAMPLE  RUN : 


Table  of  data  names  anH  formats: 


37 

YEAR 
GEO  L 

TRAVERSE 

DOMAIN 

FORMAT  10 

LEVEL 

LOCATION 

TREND 

PLUNGE 

LENGTH 

NOBS 

SCALE 

SFQNO 

01  STANCE 

EASTING 

NORTHING 

ELEVATIO 

TYPE 

0  1  POIR 

01  P 

COSA 

COSR 

COSG 

WEIGHT 

SIZE 

SPACING 

FI LLING1 

FI LLING2 

WATER 

WAVES 

LI NETYPE 

LIMA 

LI  NB 

LI  MG 

LITHOLOG 
HARDNESS 
MINE. LEV 


( 00 IX , I  1) 
(002X/A2) 
(004X, I  4) 
(008X,A2) 
(010X,A3) 
(013X, I  4) 
(017X/A3) 

( 0  20X , I  3) 

( 0 23X , I  3) 

( 0  26X , I  4) 
(030X, 12) 
(032X,  ID 
( 033X, I  2) 

( 035X , I  4) 
(039X, I  6) 
(045X, I  6) 
(051X, I  5) 
(056X/A2) 
(058X, I  3) 
(061X, I  3) 
(064X, I  5) 
(069X/ 1  5) 
( 074X, 15) 
(079X, I  3) 
(082X/A1) 
( 08  3X , Al) 
(084X,A1) 
(08  5X, Al) 
(086X,A1) 
( 087X, I  3) 
(090X,A2) 
( 092X , I  5) 
(097X, I  5) 
(102X,I5) 
( 107X/A3) 
( 110X/A2) 
(013X, I  2) 
t 

35 


Search  anrl  retrieval  Instructions: 


SCAN 

SCAN  LI  NEARS 
STOP 

t  t 
10  15 


limetype  ne 

DIP  IR 

80 

90 

LI  NEARS 
SET1 

XX 

XX 

t  t 

24  33 

t 

t 

t 

t 

47 

56 

59 

68 

•  ■  -  . 

.  1  •  :•  >  ■ 


irwu 

*  •  »  ; 


V-  J ,  II 


n  in 


c 
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Input  Data  File: 


in 

(X 

in 

ex 

LT- 

CK 

•n 

ex 

m 

ex 

in  i 
ex 

in 

ex 

in 

a: 

in 

ex 

in 

ex 

in 

01 

in 

ex 

in 

o: 

IA 

ex 

uo 

ex 

to 

ex 

in 

ex 

uo 

rx 

m 

ex 

m 

O'. 

m 

cr 

in 

ex 

in 

cr: 

uo 

rx 

ir* 

rx 

m 

rx 

in 

rx 

in 

ex 

in 

ex 

in 

ex 

•  n 
ex 

in 

cr. 

in 

ex 

in 

ex 

m 

ex 

»n 

rx 

m 

rx 

in 

ex 

t/5 

to 

CO 

co 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

Q 

CD 

G 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

a 

a 

CD 

CD 

Q 

a 

CD 

CD 

CD 

o 

CD 

CD 

CD 

a 

co 

CD 

o 

CD 

o 

CD 

CD 

CD 

L-J 

CO 

(/) 

CO 

to 

CO 

to 

to 

to 

to 

to 

to 

to 

to 

to 

CO 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

to 

04 

o 

ao 

o 

CO 

o 

zt 

ro 

o 

o 

^r 

(Sj 

vN 

o 

o 

o 

in 

o 

r- 

o 

C4 

ao 

o 

o 

o 

o 

r- 

o 

o 

o 

o 

O' 

zt 

o 

o 

o 

o 

VO 

(N 

ct 

V0 

vo 

t“ 

vO 

vo 

vo 

r- 

O 

ro 

r- 

ao 

O') 

CO 

r- 

CD 

vO 

CN 

cn 

CN 

CO 

ro 

ro 

ao 

ao 

UO 

in 

m 

ro 

00 

ro 

r- 

zt 

in 

Ct 

in 

cn 

CN 

J- 

cn 

cn 

ro 

cn 

T~ 

r- 

IN 

cn 

<N 

CN 

CO 

<N 

CN 

ct 

o 

o 

CN 

V 

CD 

vo 

CN 

a. 

o 

r— 

o 

cn 

CO 

in 

vO 

ao 

O' 

<T 

o 

r- 

ro 

o 

o 

o 

o 

CO 

cn 

o 

o 

o 

zt 

r- 

o 

o 

o 

o 

o 

ro 

r- 

ao 

co 

cn 

cn 

O 

in 

at- 

cn 

m 

uo 

cn 

c* 

co 

Vi) 

O 

o 

.it 

00 

o 

o 

cn 

r- 

m 

r- 

cr 

CN 

co 

in 

CN 

o 

vO 

rt 

00 

(N 

co 

zt 

O 

ao 

in 

ro 

zt 

T“ 

ro 

CO 

<r- 

in 

CN 

n 

T“* 

ro 

CO 

i 

cn 

T“ 

VO 

CN 

r- 

ao 

A 

03 

1 

r* 

r- 

o 

r- 

o 

in 

i 

Oi 

O 

in 

1 

m 

ro 

o 

1 

T— 

in 

vo 

vo 

i 

CD 

rr; 

I 

CN 

zt 

1 

t- 

o 

zt 

1 

CN 

o 

CD 

o 

CD 

O 

rt 

o 

o 

CD 

CN 

m 

/Ts 

o 

o 

o 

o 

vO 

CO 

in 

o- 

vo 

uo 

cn 

in 

r- 

ro 

o 

r- 

vO 

CO 

t— 

cn 

vO 

zt 

00 

O 

cn 

in 

U’ 

o 

r~ 

CO 

cn 

vo 

-r 

rfy 

C'O 

in 

cn 

rr 

r- 

rj- 

cn 

CN 

VO 

cn 

O 

cn 

vO 

ro 

cn 

r~ 

ro 

r- 

cn 

a' 

cn 

O' 

cn 

Ov 

».N 

i 

cn 

■ 

VD 

m 

ro 

1 

vO 

ro 

l 

zt 

cn 

l 

in 

vO 

1 

i 

G 

CD 

CD 

Q 

i 

Q 

CD 

i 

CD 

CD 

CD 

CD 

CD 

i 

o 

» 

CD 

i 

CD 

1 

CD 

CD 

• 

CD 

n 

CD 

CD 

r3 

CD 

CD 

Cn 

Du 

Cn 

fn 

tn 

Cn 

rn 

Oi 

ex 

fn 

Cn 

Cn 

fn 

tiJ 

Cn 

fn 

fn 

Om 

f*4 
i  n 

T~ 

it 

ro 

OJ 

zt 

CD 

vl> 

CN 

no 

ip 

t 

O 

i — 

r^ 

ro 

cn 

Ct 

m 

O 

fv> 

~Y 

i*  i 

r- 

vO 

vo 

r- 

r* 

O 

'O 

r- 

'O 

vC 

VO 

VO 

r- 

r- 

h 

uo 

VO 

f- 

vO 

n 

U  1 

ro 

T~~ 

ro 

r— 

Oc 

ro 

r— 

ro 

r— 

ro 

ro 

r~ 

m 

T~ 

co 

r~ 

c*) 

CO 

t — 

~t 

if  i 

f- 

fr) 

r— 

P'1 

T' 

^.r 

ro 

r^i 

T— 

ro 

r~ 

CO 

T~ 

C’O 

ro 

r~ 

C‘j 

ro 

ro 

ro 

ro 

fO 

*-* 

co 

O’) 

p) 

CN 

CO 

f" 

ex 

ex 

i.i  j 

j: 

V  i 

KJ 

M 

M 

M 

M 

*D 

in 

i — 

n 

vD 

r- 

*0 

r- 

r- 

22  J 

20  J 

in 

20  K 

17K 

»~5 

CN 

CN 

►D 

^ — 

CN 

*D 
1/  ^ 
m 

►d 

VC) 

r- 

JX 

uo 

CN 

y, 

O' 

CN 

y, 

r- 

o^ 

r- 

y 

o 

CN 

y, 

r- 

m 

»D 

VO 

CN 

m 

1 6  J 

n 

VO 

vO 

*D 

zt 

04 

21  J 

zt 

co 

y 

VO 

o 

P) 
v  L) 

r- 

n 

1  1 

r* 

n 

C'l 

t 

O 

r- 

ro 

t  — 

t— 

m 

r~- 

T“* 

r“~ 

o 

ro 

VO 

CM 

CN 

r* 

vO 

CN 

^r 

CN 

vO 

a; 

CX) 

O' 

o 

VO 

(N 

ro 

CD 

VCJ 

vo 

VC 

o 

CN 

VO 

co 

rv 

CN 

<4 

t.D 

o 

vO 

CN 

cn 

O 

CO 

(O 

cn 

O 

CD 

o 

CN 

in 

O) 

r- 

r- 

00 

r- 

CO 

ro 

r- 

r- 

cr 

co 

in 

cn 

i  m 

m 

r* 

vO 

r- 

ao 

-t 

CD 

o 

fT) 

f" 

CO 

CN 

UO 

00 

in 

r 

r- 

fM 

ro 

r- 

CN 

-r 

r* 

a) 

ro 

r- 

a  j 

in 

CO 

uo 

r- 

CO 

f- 

ao 

ro 

t' 

O' 

ro 

r^* 

TN 

cn 

vo 

IN 

in 

(N 

in 

r- 

vr- 

ro 

i  f~ 

CN 

m 

O! 

in 

r~ 

CN 

i  to 

r~ 

p) 

(N 

CN 

i — 
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r~ 
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SYSTEM  DOCUMENTATION 

COMPUTER  EQUIPMENT: 

CPU:  IBM  360  model  67;  32-bit  word. 

Memory:  IBM  2365-2;  1  million  bytes. 

PERIPHERAL  EQUIPMENT: 

IBM  1403N1  printers;  IBM  2501-B2  card  readers;  IBM  2540  card 
reader/punch;  IBM  2301  drums;  IBM  3333  and  3330  disc  drives;  IBM  3420-5 
9-track  dual -density  tape  drives  (800/1600  bpi);  IBM  2741  commu¬ 
nications  terminals;  IBM  3277  display  terminals;  Calcomp  770/665  drum 
plotter  (paper  width  29  5/16  inches;  pen  speed  2.25  inches  per  second; 
increment  sizes  0:0025  and  0.005  inches). 

OPERATING  SYSTEM: 

Michigan  Terminal  System;  a  time-sharing  vi rtual -memory  system. 
PROGRAM  LISTING: 


•  'V,  y  ■  MSI  i  ii  i  \'i  ib 

:  ■  )  !  •  ■  r-  er  fi:  li i v  ,,‘C  ^077 
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VARIABLES  AND  SUBROUTINES: 


Input  variables: 


LENTAB 

the  number  of  lines  in  the  table 

TABLE 

names  of  data  fields  and  format  codes 

LBL  1 

label  of  first  subset 

0PER 

operation  code 

LBL  2 

label  of  second  subset 

DNAME 

name  of  data  field  to  be  examined 

REL 

relational  operator 

ALPH 

alphameric  value 

NUMA 

first  numeric  value 

NUMB 

second  numeric  value 

LBL  3 

label  to  be  associated  with  new  subset 

KSAVE 

'save'  option  control  character 

KRETR 

'retrieve'  option  control  character 

Output  variables: 

LBL 

label  associated  with  retrieved  subset 

LINE 

data  record 

BLINE 

blank  line 

External  Subroutines  Required: 


None . 
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DATA  STRUCTURES: 

Structure  of  the  input  file  is  described  above.  The  program 
does  no  blocking  or  deblocking.  Present  record  length  for  the  data 
file  is  112  bytes. 

Retrieved  data  file  consists  of  title  record,  data  records, 
and  one  blank  record  as  a  delimiter.  This  sequence  is  repeated  if 
more  than  one  subset  of  data  is  retrieved.  No  end-of-file  marks 
are  written  in  the  retrieved  data  file. 

Sets  of  record  numbers  are  output  as  80-byte  records.  Each  set 
consists  of  two  title  records  followed  by  records  containing  the 
numbers.  All  the  records  in  each  set  including  the  two  title  records 
are  numbered  sequentially  in  columns  78-80. 


-.1  .  ' 


STORAGE  REQUIREMENTS: 


Main  program: 

6,528 

Subrouti nes : 

P0SN 

496 

R0S 

264 

RIR 

624 

R0SK 

264 

MN0T 

264 

NRETR 

856 

NSAVE 

520 

RIRK 

800 

MAND 

704 

R0R 

10,680 

RKEY 

616 

RFIND 

752 

RKEEP 

936 

R0RK 

848 

M0R 

1,160 

MNAND 

768 

READ 

952 

WRITE 

904 

Common  blocks:  0NE  30,512 


Total  storage  required:  58,900  bytes 




MAINTENANCE  AND  UPDATES: 


None. 


OPERATING  DOCUMENTATION 


OPERATOR  INSTRUCTIONS: 
None . 

OPERATING  MESSAGES: 
None. 


CONTROL  CARDS: 

$RUN  *M0UNT 

OOnnnn  9TP  *TAPE1*  V0L  =  XXXXXX 

OOnnnn  9TP  *TAPE2*  V0L  =  XXXXXX  RING-IN 

$ENDFILE 

$R  *F0RTG  O=0BJ 
^source  program 
$ENDFILE 

$r  0Bj  i=*TAPE*  2=-TEMP  3=*S0URCE*  4=  *S0URCE*  5=*S0URCE* 
6=*SINK*  7=*PUNCH*  8=*TAPE2* 


j^table  of  fields,  fi 
^search  and  retrieval 


eld  names  and  format  codes 
instructions. 


ERR0R  REC0VERY : 

No  special  procedures. 
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RUN  TIME: 

Cpu  time  required  for  a  "scan"  operation  is  about  1.5  seconds  per 
1000  records  in  the  data  file.  Saving  of  the  set  of  record  numbers 
generated  requires  about  0.5  seconds  of  cpu  time  per  1000  record 
numbers  in  the  set.  The  additional  cpu  time  required  to  retrieve  a 
subset  of  data  records  is  about  1  second  per  1000  records  in  the  data 
file  plus  about  5  to  7.5  seconds  per  1000  records  retrieved. 

These  results  were  obtained  using  two  test  files  containing 
112-byte  records,  one  file  of  about  4000  records  read  from  a  tape, 
and  one  file  of  about  400  records  read  from  a  disk  file.  In  both 
cases  the  retrieved  records  were  written  out  to  a  disk  file.  The 
figure  of  7.5  seconds  per  1000  records  retrieved  was  for  retrieval 
of  the  entire  4000-record  file,  while  the  smaller  figure  was  for 
retrieval  of  the  entire  400-record  file. 
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Iden tif ication 


Program  name: 

MAP3 

Program  title: 

Areal-analysis  package  -  map  program. 

Author : 

John  Ramsden 
Organization : 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date : 

1  October  1974 
Program  version  number: 

3 


Appl icat ion 


Purpose : 

To  generate  commands  for  a  digital  incremental  plotter 
to  draw  a  map  of  survey  traverses  or  orientations  of 
discontinuities. 

Method : 

The  program  determines  the  maximum  and  minimum  X  and  Y 
values  from  the  data.  It  then  determines  the  position  of  the 
first  grid  line  above  the  maximum  X  value,  and  the  position 
of  the  first  grid  line  below  the  minimum  X  value,  using  the 
given  interval  between  grid  lines.  This  is  repeated  for  the 
Y  values.  The  four  grid  lines  so  determined  become  the 
borders "of  the  map.  This  border  is  drawn,  as  well  as  all 
intermediate  grid  lines,  and  a  title  is  written  below  the 
lower  border.  The  data  points  are  then  plotted. 

Optimization  of  plotting  is  achieved  in  the  following 


I 
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way.  Using  the  extreme  X,Y  values  corresponding  to  the 
borders  of  the  map,  the  program  subdivides  the  whole 
rectangular  region  into  a  60  by  60  grid,  determines  the 
number  of  observations  within  each  grid  square  and  sets  up 
pointers  tc  locate  all  observations  within  each  grid  square. 
This  enables  the  program  to  do  a  raster  scan  on  the  60  by  60 
matrix  tc  optimize  plotting. 

The  scale  of  the  map  is  determined  by  a  scale  factor 
read  from  the  parameter  card.  This  scale  factor  specifies 
the  number  of  data  units  that  are  to  correspond  to  one  inch 
on  the  map. 

Beside  each  data  point  the  program  writes  one  number 
and  one  character  string  of  up  to  four  characters.  If  the 
number  is  zero  it  is  not  plotted.  From  each  data  point  a 
line  is  drawn  with  azimuth  A  and  length  L  inches.  A  and  L 
are  determined  from  the  data  items  NUM1  and  NUM2  associated 
with  the  data  point,  in  a  way  that  is  determined  by  the 
parameter  MODE.  If  MODE=1  (plotting  traverses)  A=NUM1  and 
L=NUM  2/SCALE  (same  scale  as  coordinates) .  If  M0DE=2 
(plotting  strikes)  A=NUM1  and  L=0.5.  If  MODE=3  (plotting 
three-dimensional  directions  such  as  poles  to 
discontinuities)  A=NUM1  and  L=PROJRAD  (NUM2 , DPI) ,  where 
PEOJ RAD  (NUM2, DPI)  is  the  distance  on  a  Lambert  equal-area 
projection  with  radius  DPI  from  the  centre  of  the  projection 
to  a  point  representing  a  plunge  of  NUM2  degrees.  DPI  is 
read  from  the  parameter  card. 

Optional  printout  of  the  input  and  certain  derived  data 
is  controlled  by  the  LIST  parameter.  If  LIST=0  no  data 
listing  is  produced.  If  LIST=1  the  input  data  is  listed  as 
it  is  read.  If  LIST=2,  in  addition  to  listing  the  input 
data,  the  program  produces  a  second  listing  as  the  points 
are  plotted  containing  the  number  of  each  data  point,  NUMl, 
NUM2,  TREND,  PLUNGE,  PROJX  and  PROJY.  PROJX  and  PROJY  are 
the  X  and  Y  increments  from  the  beginning  to  the  end  of  the 
plotted  line  segment. 

Data  restrictions: 

Maximum  number  of  data  points  in  one  map  is  1500. 

Timing : 

t=0. 8s*0. 02p;  t=CPU  time  in  seconds;  s=number  of 
samples  (number  of  maps  plotted) ;  p=total  number  of  data 
points  in  all  samples. 


•  pal:  Iq  dSil-jXd’qo  of  :x 
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Implementation 


Original  installation: 

Organization:  University  of  Alberta  Computing  Services. 

Computer:  IEM  360  model  67  (1024K) . 

I/O  devices:  card,  disc,  tape,  typewriter  terminals  and 

display  terminals. 

Software:  Michigan  Terminal  System  (MTS),  a  virtual- 

storage  time-sharing  system. 

Source  language: 


FORTRAN  IV 


Subroutines  and  function  subprograms  required: 


Subroutine  TPXYEQ  from  JR  subroutine  library. 
Subroutines  RIOT  WHERE  ELOTS  XLIMIT  NUMBER  LINE  SYMBOL  from 
the  system  plotting  subroutine  library. 

Size  : 


Total  program  size  including  all  required  subroutines 
except  plotting  subroutines  is  86488  bytes.  Total  size  of 
required  plotting  subroutines  from  the  plotting 


subroutine 


libr 

ary  at 

the 

8752 

bytes . 

Regu 

irements 

for 

I/O 

read/ 

Max 

unit 

write 

rec 

FORTRAN 


no . 


(bytes) 


device  suggested 

control  device 

statement  s 


1 

read 

2408  unformatted 

none 

5 

read 

50  formatted 

none 

6 

write 

112  formatted 

none 

7 

write 

102  formatted 

none 

•? 

• 

write 

depends  on  plotting 
subroutines . 

v 

tape;  disc, 
disc;  card, 
terminal ; 
line  printer, 
terminal ; 
line  printer, 
tape;  disc. 


*  -  ~  - 


:  7S7  Hi  VC 


i>  ci'  ;3i  :  eif-'  - «. 
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Usage 


Input : 

I/O  unit  1:  Data. 

Unformatted,  as  written  by  program  INEUT1  or  INPUTK1  or 
DSPDAT1 . 

I/O  unit  5:  Parameters. 

One  record  containing: 
columns  contents 

10  MODE 

11-20  Number  of  data  units  between  grid  lines.  Right- 

justified  integer  . 

21-30  Number  of  data  units  per  inch.  Right- justified 
integer  or  with  decimal  point. 

31-40  DPI.  Radius  of  projection  for  plotting  orientations. 

Right- justified  integer  or  with  decimal  point.  If 
field  is  blank  or  zero,  a  default  of  3.937  inches 
(20  cm.)  will  be  used. 

50  LIST.  Printout  parameter. 

Output: 

I/O  unit  6:  Parameter  list;  messages. 

Input  parameters  are  printed  on  this  unit. 

I/O  unit  7:  Data  listing. 

I/O  unit  ?:  Output  from  plotting  subroutines. 

Unit  number  and  device  requirements  depend  on  the 
plotting  subroutines. 
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c 

c 

C  AREAL-ANALYSIS  PACKAGE  -  PROGRAM  "MAP3 
C 

c 

REAL  A  (1500)  ,B  (1500)  ,G  (1500) 

INTEGER***  IX  (150  0)  ,IY  (1500)  ,IZ  (1500)  , TITLE  (30)  ,  FMT  (20) 

2  ,  N U M2  (1500)  ,  NU  M 1  (1500) 

INTEGER  LABEL  (2, 1500)  , BLANK/'  •/ 

EQUIVALENCE  ( A  ,  NU M  1 ) ,  (B , NUM2 ) 

COMMON/MAPI/  LABEL,IX,IY,IZ,NUM2,NUM1,KEY,DPI  ,LIST 
READ  PARAMETERS 

READ  (5, 10  3)  KEY, IN TGR, SC ALE, DPI, LIST 

103  FORMAT  (2110 ,2F10.0, 110) 

WRITE (6, 104) KEY, INTGR, SCALE, DPI 

104  FORMAT (IX, • MODE*' ,I1,5X, • DATA  UNITS  BETWEEN  GRID  LINES* • , 15, 5X, 

♦  'DATA  UNITS  PER  INC  !1=  '  ,F10.4,5X,  '  PROJECTION  RADIUS*  '  ,  F7 . 3) 

SCA  LE= 1 . 0/SCALE 
IF (DPI. EQ. 0.0) DP 1=3. 937 
WRITE (6, 10  5)  SC  ALE, DPI 

105  FORMAT  (1 X, • INCHES  PER  DATA  UNIT=' , Pi  0. 6, 10X, • PROJECTION  RADIOS*', 
*F7. 3) 

INITIALIZE  PLOT  ROUTINES 

CALL  PLOTS 
XSTART=0 . 0 

CALL  PLOT  (1 .0, 1.0, -3) 

CALL  XLIMIT  (200.0) 

C  CALL  FACTOR(0.5) 

150  READ (1 , END=180) NN,NV, NO, NPHR, TITLE 
IF  (NV. NE. 6) GOTO200 
IF  (NO. GT.  1500) GOTO210 
WRITE  (7 , 2  1  4 )  T IT LE 
KA=  1 
KB  =  1 00 

5  IF (KA. GT. NO) GOTO10 
IF  (KB. GT. NO)  KB*  NO 

20  READ  (1)  N  ,  I E  ,  (IX  (J)  ,IY  (J)  ,IZ(J)  , LAB  EL  ( 1 ,  J)  ,NUM1  (J)  ,NUM2(J)  , 

^tJ^KA  K 13) 

IF  (LI5T.GT.0)  WRITE  (7,213)  (J,IX(J)  ,IY(J)  ,IZ(J)  ,LABEL(1,J)  ,NUM1(J), 
*UM 2  (J)  ,J  =  KA,KB) 

30  KA=KA*100 
KB*  K B*  1 0 0 
GOTO  5 

10  CONTINUE 

DO  160  J  = 1 , NO 
160  LABEL  (2,  J)  =BLANK 

PLOT  MAP 

1 ** ' 

40  CALL  PPLOT  (NO, INTGR, TITLE, SCALE, XSTART) 

GOT0 1 50 

TERMINATE  PLOT 
180  CALL  WHERE  (X, Y , F) 


C 

C 

C 


C 

c 

c 


M  A  P  3 
MAP3 
M  A  P  3 
MAP3 
M  A  P  3 
M  A  P  3 
M  A  P  3 
M  A  P  3 
MAP3 
M  AP3 
MAP3 
M  A  P  3 
M  A  P  3 
MAP3 
M  A  P  3 
MAP3 
MAP3 
MAP3 
MAP3 
M  A  P  3 
MAP3 
M  A  P  3 
MAP3 
M  AP3 
M  A  P  3 
MAP3 
M  A  P  3 
MAP3 
M  AP  3 
MAP3 
M  A  P  3 
MAP3 
M  AP  3 
MAP3 
M  A  P  3 
MAP3 
M  AP3 
MAP3 
M  A  P  3 
M  A  P  3 
MAP3 
M  A  P  3 
NMAP3 
M  A  P3 
M  A  P  3 
MAP3 
M  A  P  3 
M  A  P  3 
M  A  P  3 
MAP3 
M  A  P  3 
MAP3 
MAP3 
MAP3 
M  A  P  3 
MAP3 
M  A  P  3 
MAP3 
MAP3 


10 

20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
54  0 
550 
560 
570 
580 
590 
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20C 

210 

201 

211 

212 

213 

214 


CALL  PLOT  (X,Y, 999) 
STOP 

WP ITE (6, 20  1) NV 
STOP  12 

WRITE  (6, 21 1)  NO 
STOP  1 2 


M  A  P  3  600 
M  A  P  3  610 
M  A  P  3  620 
MAP3  630 
M  A  P  3  640 
MAP3  650 
MAP3  660 
M  A  P  3  670 
M  A  P  3  680 


C 

C 

c 

c 

c 


6 

5 

C 

C- 

C 


C 

c- 

c 

c 


FORMAT (/*  ****  ERROR  -  NUMBER  OF  VARIABLES  IN  DATA  MATRIX  NOT  6 
*  ****'/'  NV=  '  ,  1 1  0) 

FORMAT  (/•  ****  ERROR  -  NUMBER  OF  OBSERVATIONS  EXCEEDS  1500  ****•/  M  A  P3  690 
*'  NO=',I10)  M  A  P  3  700 

FORMAT  (IX, 15, 217, 16,  1X,A4,3F10.6)  MAP3  710 

F0RMAT(1X,I5,2I7,I6,1X,A4,2I5)  M  A  P  3  720 

FORMAT  ('T* ,30A4)  M  A  P3  730 

M  A P  3  740 

END  M  A  P  3  750 

SUBROUTINE  PPLOT  (  N , I NTGR , TITLE , SC  ALE , XSTART)  MAP3  760 

M  A  P  3  770 

DETERMINES  MI N I M A , M AX  I M A, R ANG ES ,  MAP  BORDERS  SETS  UP  60X60  GRID  MAP3  780 
FOR  OPTIMIZATION  OF  PLOTTING  THEN  CALLS  ROUTINES  TO  DO  GRID, FR AMEM A P3  790 


AND  PLOT  ALL  TRAVERSE  INFORMATION 

R E A L * 8  LABEL  ( 1  500) 

REAL  SIZE  (2) 


2  IZ  (1500)  ,  TITLE  ( 1 )  ,  NUM2  (1  500)  ,  NUMl  (1500) 

INTEGER*  2  L  (6  2,62)  ,  POINT  (62,62)  ,  POINT2  ( 1500)  ,  IS  (1500)  ,JS  (1500) 
2 , ICO DE  (20) 

LOGICAL* 1  LOPT, START/, TRUE./ 

COMMON/MAPI/  LABEL, IX, I Y , I Z , N UM2 , NU M 1 , KEY 
COM  MON/M A P2/  L, POINT, POINT2, ICODE 


IDIM=60 


■ZERO  CELL  COUNTS 


M  A  P  3  800 
M  A  P  3  810 
M  A  P  3  820 
M  A  P  3  830 

INTEGER* 4  R A NG E  ( 2)  , I X M I N  ( 2 )  ,  I XM A  X (2 )  ,  ADDX , A DD Y , I X ( 1 50 0)  , I Y ( 1 500 ) ,  M  A  T  3  840 

M A P 3  850 
MAP3  860 
M  A  P  3  870 
MAP3  880 
M  A  P  3  890 
MAP3  900 
M  A  P  3  910 
M  A  P  3  920 
MAP3  930 
M  A P  3  940 
MAP3  950 
MAP  3  960 
M  A  P  3  97  0 
M  A  P  3  980 
MAP3  990 
MAP  3  1000 
MAP3 1010 
M  A  P  3  1  02  0 
M AP3 1030 
MAP3 1040 
MAP3  1050 
M AP3  1060 
M  A  P  3  1  0  7  0 
M  A  P  3  1  080 
MAP3109Q 
MAP31 100 
MAP31  110 
MAP31 120 
MAP31 130 
MAP31 140 
MAP31 150 
MAP31 160 
MAP31 170 
MAP3118Q 
MAP31190 


DO  5  I=1,IDIM 
DO  6  J  =  1,  ID IM 
L  (I  ,.J)  =0 
CONTINUE 
CONTINUE 


•INITIALIZE  MAXIMUM  AND  MINIMUM 


IXM  IN  (1 )  =999999999 
IXMIN  (2)  =1  X  MI  N  (1) 
IXMAX  (1)  =-IXMIN  (1) 
IXMAX  (2)  =  I  XM  A  X  (1) 


■DETERMINE  MAXIMUM  AND  MINIMUM  OF  X  AND  Y 
AND  COMPUTE  LIMITS  OP  MAP  AREA 


DO  20  J=  1 , 2 
DO  10  1=1, N 
IXT  =  IX  (I) 

IF(J.EQ.2)  IXT=IY  (I) 

IF  (IXT.EQ.0)  GO  TO  10 
IF(IXT. GE. IXMIN  (J) )  GO  TO  15 
IXMIN  ( *7 )  =  IXT 
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15 

10 


20 

c 

c- 

c 


c 

c 

c 

c 


26 

27 


25 

C 

C 

C 


31 

30 


32 


33 

C 

C- 

c 


50 


C 

c 

c 


1001 

100 


IF  ( IXT  . LE. IXMAX  (J) )  GO  TO  10 
IXMAX  (J)  =  I X  T 

CONTINUE 

IXHIN  (J)  =INTGR*  (IXMIN  (J)  /INTGR) 
IXMAX  (J)  =INTGR*  (IXMAX  (J)  /INTGR*  1) 
RANGE  (J)  =  IX  MAX  (J)  -IXMIN  (J) 

SIZE  (J)  =  RANGE  (J)  * SC ALE 
CONTINUE 

- COMPUTE  DIMENSIONS  OF  CELLS 

XDELT=  RANGE  (1) /FLOAT  (I  DIM) 

YDELT= RANGE  (2)  /FLOAT  (I  DIM) 

- DETERMINE  CELL  FREQUENCIES  AND 

- TO  EACH  DATA  POINT 


MAP31200 
MAP31210 
M AP3  1220 
MAP31230 
M  A  P  3 1 24  0 
MAP3 1250 
M  AP3  1260 
MAP31270 
MAP31280 
M  A  P  3  1  290 
MAP31300 
MAP31 310 
MAP31320 
MAP  3  1330 
MAP31340 
MAP  3  1350 
MAP31360 
M  A  P  3  1  370 
MAP  31380 
MAP  31  39  0 
MAP  3  1400 
MA  P3  1410 
MAP31420 
MAP3 1430 
MAP31440 
MA  P3  1450 
MAP31460 
MAP31470 
MAP31480 
FOR  EACH  GRID  SQUARE  MAP31490 

M  A  P  3 1 500 
MAP 3  1510 
M  A  P  3  1  52  0 
MAP 3 1530 
MAP31540 
MAP31550 
MAP31560 
MAP31570 
M  A  P  3  1  580 
MA  P31590 
MAP31600 
MAP31610 
M  AP3  1620 
MAP31630 
MAP31640 
MAP  31650 
MAP31660 
MAP  3  1670 
MAP31680 
M  AP3  1690 
MAP31700 
MAP31710 
MAP  31720 
MAP31730 
MAP3  174  0 
MAP31750 
MAP31760 
MAP31770 
MAP31780 
M  AP  3  1790 


ATTACH  CELL  POINTERS 


DO  25  11=1, N 

IF  (IX  (II)  .  NE.0.  AND.  IY  (II)  .NE.0)  GO  TO  26 
1=1 
J=1 

GO  TO  27 

I=(IX(II)-IXMIN  (1)  -1)  /XDELT+1 
J  = (1Y (II) -IXMIN  (2) - 1 ) / YDELT * 1 
L  ( I  ,  J)  =  L  (I,  J)  *1 
IS(II)=I 
JS (II) =J 
CONTINUE 

SET  UP  POINTERS  TO  LOCATE  SURVEY  POINT  INFO 
M 1  =  1 

DO  30  JJ  =  1, ID  I M 
DO  31  11  =  1,  IDIM 
IF  (L  (I  I,JJ)  .  EQ  .  0)  GO  TO  31 
POINT  (II,  JJ)  =  M  1 
Ml  =  M1  +  L  (II, JJ) 

CONTINUE 
CONTINUE 
DO  32  1 1 =  1  ,  N 
M1=POINT  (IS  (II)  ,JS  (II)  ) 

POI NT 2  (Ml) = 1 1 

POINT  (IS  (II)  ,  J S  (II)  )  *  P  O I N  T  (IS  (II)  ,JS(II))  *1 
CONTINU B 
DO  3  3  1 1  =  1  ,  N 

POINT  (IS  (II)  ,JS  (II)  )  -POINT  (IS  (II)  ,  JS  (II) )  -1 

CONTINUE 

- PLOT  TITLE 

XP=XSTART 
YP= - 1  • 0 

CALL  SYMI30L  ( X  P  ,  YP  ,  0 . 2  5  ,  TITLE ,  0 . 0 , 1  2  0  ) 

- PLOT  GRID 

WRITE  (6, 1001) 

FORMAT  ( *  V) 

CALL  PGR  ID  (INTGR, IXMIN, RANGE, IXMAX, SCALE, XSTART) 
WRITE  (6,  1002) 
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1002  FORMAT  ('  2’) 

C 

C - PLOT  POINTS 

C 

DO  4  0  J= 1,1  DIM 
L0PT=. FALSE. 

IF  (MOD  (J,2)  .EQ.C)  LOPT  =  .TRUE. 

DO  41  11=1, IDIM 
1=  I  I 

IF(LOPT)  1=  IDIM-I+  1 
IF (L (I,  J) . EQ . 0)  GO  TO  41 
C  CALL  VALID (I,J) 

IF (KEY. EQ. 1) CALL  PPTS ( I , J, I XMIN , SC A LE , XST A RT) 
IF (KEY. EQ. 2) CALL  PPTS2  (I, J, IX  MIN, SCA LE, XSTART) 
IF  (KEY. EQ. 3) CALL  PPTS3  (I, J, IXHIN, SCA LE, XSTART j 
41  CONTINUE 

40  CONTINUE 


WRITE  (6,  100  3) 

1003  FORMAT  ( '  3') 

XSTART=XSTART*SIZE (1)  *3.0 
200  RETURN 
END 

SUBROUTINE  PGRID  (INTGR,IXMIN, RA NG E , I XMAX , SCALE , XST A RT) 

- DRAWS  FRAME  AND  GRID  LINES 

R  E  A  L  *  4  XT (4) /0. 0,0. 0,0.0, 1 .0/,YT (4) /0 .0,0. 0,0.0, 1.0/ 
INTEGER*4  IXMI N (2)  ,IXMAX(2),RANGE(2) 

- CHECK  NUMBER  OF  GRID  LINES 

DO  10  J=1,2 

NG=  (IXMAX  (J)  -  IXMIN  (J)  )  /INTGR 
IF  (NG. GT. 50) G0T04 0 
10  CONTINUE 

- PLOT  GRID  LINES 

RINC= SCALE* INTGR 

XU- XSTART*SCALE*RANGE ( 1) 

YU=SCALE*  RANGE  (2) 

YT  (  1)  =0. 0 
YT  (2)  =  YU 
XT ( 1 )  =  X  STA  R  T 
XT (2) = XSTART 

20  CALL  LINE (XT, YT, 2, 1 ,0,0) 

XT  (1 )  =XT  (1 )  +RINC 
XT  (2)  =  XT  (1) 

IF  (XT  ( 1 )  . LE. XU) GOTO20 
XT  (  1)  =  XSTART 
XT  (?)  =  XIJ 
YT (1 ) =0.0 
YT  (2)  =0.  0 

30  CALL  LINE  (XT, YT, 2, 1,0,0) 

YT(1)  =  YT  ( 1 )  +RINC 
YT  (2)  =YT  (1) 

IF ( YT ( 1 ) .LE.YU) GOTO30 

C 


MAT  3  180  0 
M  A  P  3  1 8 1  0 
MAP31R2Q 
MAP31B30 
MAP31840 
MAP1 1850 
MAP31860 
MAP31870 
MAP  3  1980 
MAP31890 
M AP3  1900 
MAP31910 
M  A  P  3  1  920 
MAP3 1930 
MAP31940 
MAP31950 
MAP31960 
MAP31970 
MAP31980 
MAP31990 
MAP32000 
MAP32010 
M.AP32020 
MAP 3 2030 
M AP32040 
MAP32050 
MAP  32060 
MAP32070 
M  A  P  3  20  80 
M  A  P  3  2090 
MAP 32100 
M  A  P  3  2 1 1  0 
MAP32120 
MAP32130 
M  A  P  3  2  1 4  0 
M  A  P  3  2  1 5  0 
MAP32  160 
MAP32170 
M AP32180 
MAP32190 
MAP32200 
MAP32210 
MAP32220 
MAP  3  2230 
MAP32240 
M  A  P3 2250 
M  A  P  3  2  2  6  0 
M  A  P  3  2270 
MAP32280 
M A P 32290 
MAP32300 
MAP3231  0 
MAP32320 
MAP32330 
M  A  P  3  2  34  0 
MAP32350 
M  A  P  3  2360 
MAP32370 
MAP32383 
MAP32390 


■ 
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20 


30 

9 


RETURN 

4  0  WRITE  (6, 100)  IXMAX,IXMIN,INTGR,NG 
100  FO  R  M  AT  (  '  NUMBER  OF  GRID  LINES  IN  X  OR  Y  GREATER  THAN  50  -» 
*’  CHECK  GRID  S  P  A  C I N  G  •/  1 X  ,  1  0  1 1  0) 

STOP  12 
END 

SUBROUTINE  PPTS  (I ,  J  ,  I X  MI  N ,  SC  A  LE,  XST  A  RT) 

PLOTS  ALL  TRAVERSE  LOCATIONS,  ELEVATIONS,  AND  NUMBERS  IN 
INTEGER* 4  IXMIN(2)  ,  IX  (  150  0)  ,  IY  ( 1  500)  ,  IZ  (1  500)  ,  LS/3/ 

2 , N  U M  2  (  1500)  ,  N U M  1  (1  500) 

INTEGF,R*2  L  (6 2 , 62 )  ,  PO I  NT  ( 6 2 , 6  2 )  ,  PO I  N T2  ( 1  500  )  ,  ICODE  (20) 

REA  L*8  LABEL  (1 500)  , BLANK/'  '/ 

REAL*  4  HTS/0.0  9/,  II TE/.  08/,  HTT/0  .  OB/,  SPACl/.  0  3/,S  PAC2/.  09/ 

2  / 

LO  G I C  A  L  *  1  LAZ 

COMMON/MAPI/  LABEL, IX, IY, IZ,NUM2, NUM 1 , KEY, DPI 
COM  MON/MA  P2/  L , POI NT , P OI N T2 , ICODE 
CO N V  (AZ) =3.  1416/180.0* (90.0-AZ) 

CARTX  (R,  AZ)  =R*COS  (CONV  (AZ)  ) 

CARTY  (  R  ,  A  Z )  =R*SIN  (CONV  (AZ)  ) 

N=L  (I,  J) 

M=POINT (I, J) 

SCALEE=SCALE 
DO  10  11=1, N 
MM  =POI NT2 (M) 

IF  (IX  (MM)  .  EQ.  0  .OR.  I Y  ( MM )  .  EQ  .  0 )  GOTO  8 
AZ= FLOAT (NUM 1  (MM)  ) 

LA Z=. TRUE. 

IF  (AZ. LT.  180.0)  LAZ  =  . FALSE. 

XP  =  XSTART«- SCALE*  (IX  (MM)  -IX MIN  (1)  ) 

YP-SCALE*  (IY  (MM)  -  IXMIN  (2)  ) 

X2  =  X  P  +  SP  X  1 
X3=  X2 

IF ( IZ  (MM)  . EQ. 0) GOTO  15 
ELKV  =  FLOAT  (IZ  (MM)  ) 

IF  (LAZ)  GO  TO  20 
FLN  =  ALOG10  (ELEV)  ♦ 1 . 0 
X2  =  X  P-  (SPX1+6,  0/7.0*FLN*HTE) 

CALL.  NUMBER  ( X  2 ,  Y  P+ SPAC  1 ,  HTE ,  E  LE  V  ,  0 . 0  ,  - 1) 

15  IF (LABEL (MM) .EQ. BLANK) GOT09 
IF  (LAZ)  GO  TO  30 
CALL  RJUST8  (LAHEL  (MM)  ) 

X3=  XP-  (S PX 1 ♦ 6* HTT) 

CALL  SYMBOL  ( X 3 , Y P-S PAC 2 , HTT, L A B EL (MM)  ,0.0,8) 

ANG*0.0 
DO  5  J J=  1 , 2 

CALL  SYMBOL  ( XP , Y P , . 20 * J J* HTS , 1 , ANG ,- 1) 

ANG=ANG*45. 0 
CONTINUE 


XPP  =  XP«-CARTX  (SCALEE*PLOAT  (NUM 2  (MM)  )  ,  AZ) 
YPP=YP*CARTY  (SC A LEE* FLOAT ( NU M2  (M M )  )  , A Z) 
CALL  PLOT (XPP, YPP, 2) 

8  M  =  M ♦  1 

10  CONTINUE 

RETURN 
END 

SUBROUTINE  PPTS2 (I , J, I XMIN , SC ALE , X STA RT) 


MAP32400 
MAP  32410 
MAP 32420 
M AP32430 
M AP32440 
M AP32453 
M  A  P  3  2460 
MAP32470 
GRID  SQUAM  AP32480 
MAP32490 
M AP32500 
MAP32510 
MAP32520 
,SPX1/. 10MAP32530 
MAP32540 
M  A  P  3  2550 
MAP32560 
M  A  P  3  2  57  0 
MAP32580 
M AP32590 
M  A  P  3  260 0 
MAP32610 
MAP32620 
MAP32630 
M  A  P 3  2 64  0 
MAP  3 2650 
MA  P32660 
M  A  P  32  670 
MAP  3 2680 
MAP32690 
M AP32700 
MA  P3271  0 
M AP32720 
MAP32730 
MAP 32740 
MAP  32750 
MAP32760 
M AP32770 
MAP32780 
MAP32790 
M  A P  3  280  0 
MAP32810 
MAP  32820 
MAP32830 
M  A  P  3 284 0 
MAP32850 
M  A  P  3  2860 
M  AP3287  0 
MAP32880 
MAP 3 2890 
MAP  3290  0 
MAP32910 
MAP32920 
M AP32930 
MAP32940 
M  A  P  32950 
MAP32960 
MAP32970 
MAP32980 
MAP32990 
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20 


0 

10 


PLOTS  ALL  TRAVERSE  LOCATIONS,  ELEVATIONS,  AND  NUMBERS 
INTEGERS  IX  MIN  (2)  ,  IX  (1500)  ,  1  Y  (1500)  ,  IZ  (1  5C0 )  ,  LS/3/ 

2  ,  Nil  M2  (  1500)  ,  NUM1  (1500) 

IN  T EG ER *  2  L  (62,62)  ,  POINT  (62, 62)  ,POINT2(1500)  ,ICODE(20) 
RE  A  L*  8  LABEL (1  500)  , BLANK/'  •/ 

REAL* '4  HTS/0.C9/,  HTE/ .  08/,  HTT/0 . 0  8/,  S  PAC 1/.  0  3/,  SPAC2/ . 
2  / 

LOG IC  A  L* 1  LAZ 

COMMON/MAPI/  LABEL, IX, I Y , IZ , N UM2 , NUM 1 
COM  MON/M  A  P2/  L,POINT,POINT2,ICODE 
CONV  (AZ)  =  3.  1416/180.0*  (90.0-AZ) 

CARTX (R, AZ) =R*COS  (CONV  (AZ)  ) 

CARTY  (R, AZ) =R*SIN  (CONV  (AZ)  ) 

N  =  L  (I, J) 

M=  POINT  (I , J) 

DO  10  11=1, N 
MM=POINT2  (M) 

IF(IX  (MM)  .EQ.O  .OR.  I Y  (MM)  .  EQ .  0)  G0T08 
AZ=  FLOAT  (NUM1  (MM)  ) 

LA  Z  =  . TRUE . 

IF (AZ. LT. 180.0)  LAZ=. FALSE. 

XP=XSTART  +  SCALE*  (IX  (MM) -IX MIN  (1) ) 

YP  =  SCALE*  (IY  (MM)  -IXMIN  (2)  ) 

X2  =  X  P*  SPX 1 
X  .3  =  X  2 

IF  (IZ  (MM)  . EO.O) GOTO  1 5 
EL E  V  =F LO A T  ( IZ  (MM)  ) 

IF  (LAZ)  GO  TO  20 

FLN  =  ALOG10  (ELEV)  +1.0 

X2=XP- (SPX1+6. 0/7,0*FLN*HTE) 

CALL  NUMBER  (X  2  ,  Y  P  + S  PAC  1 ,  HT  E,  ELEV  ,  0 . 0  ,  -  1) 

15  IF (LABEL  (MM)  .EQ. BLANK)  G0T09 
IF  (LAZ)  GO  TO  30 
CALL  RJUST8  (LABEL  (MM)  ) 

X3  =  XP-  (SPX  1+6*HTT) 

30  CONTINUE 
ANG=C . 0 
DO  5  J  J  =  1 ,2 

CALL  SYMBOL  (XP , YP, .20*JJ*HTS,1,ANG,~1) 

ANG  =  A-NG*45.0 
CONTINUE 

XPP  =  XP+CARTX  (0. 5,AZ) 

YP  P=  YP  +  CA  RT  Y  (0. 5,  AZ) 

CALL  PLOT (XPP, YPP,2) 

M=  M  *  1 
CO  NT  IN  UE 
RETURN 
END 

SUBROUTINE  PPTS 3  ( I , J, IX  MI N , SC ALE, XST ART) 

PLOTS  ALL  TRAVERSE  LOCATIONS,  ELEVATIONS,  AND  NUMBERS 
INTEGER*  4  IXMIN(2),IX(1500),IY(150  0)  ,  IZ  (1500)  ,  LS/3/ 

2 , NU  M  2  (1500)  , N  U  M  1  (15C0) 

INTEGER  *2  L  (62,62)  ,  POI  NT  (62, 62)  ,  POINT2  (1500)  ,ICODE(2Q) 
RE A L* 8  LABEL  (1  500)  , BLANK/'  '/ 

REAL*4  HTS/0.0  9/,HTE/. 0 8/, HTT/0 . 08/, SPAC1/.  03/,SPAC2/. 
2  / 

LOG ICA  L* 1  LAZ 

COMMON/MAPI/  LABEL, IX, IY , IZ , NUM2 , NUM 1 , KEY, DPI  ,LIST 
COMMON/MAP2/  L , POINT, POINT2 , ICODE 
REAL  DTR/1.745329E-2/,TP(2) ,XY(2) 


IN  GRID  SQU  AM  A  P  3  3  00  0 
MAP33010 
MAP33020 
MAP  3 3030 
MAP330U0 
09/,SPXl/. 10MAP33050 
M AP33060 
MAP33070 
MAP  3 3080 
MAP33090 
MAP  3  3100 
MAP33110 
MAP33120 
MAP33130 
MAP33140 
MAP  3 3150 
MAP33160 
M  AP33 170 
MAP33  180 
MAP33190 
MAP  3  3200 
MAP3321 0 
MAP  3 3220 
MAP33230 
M  A  P  33  24  0 
MAP33250 
MAP33260 
MAP33270 
MA  P33280 
M  A  P  3  3290 
MAP33300 
M  A  P  3  3  3 1  0 
MAP33320 
MAP33330 
M  A  P  3  3  34  0 
MAP33350 
M  A  P  3  3360 
MAP33370 
M  A  P  3  3  380 
MAP  3  3390 
MAP 3 3400 
M  A  P  3  3  4  1  0 
MA  P33420 
M AP33430 
MAP33440 
MAP33450 
MAP33460 
MAP33470 
MA  P  33480 
IN  GRID  SQU  AM  A  P  3  349  0 
MA  P33500 
MAP33510 
MAP  33520 
MAP33530 
0  9/, S  PX 1/. 10M AP33540 
MAP33550 
M  A  P  3  3560 
MAP33570 
M AP33580 
M A  P33590 
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^  EQUIVALENCE  (TREND, TP)  , (PLUNGE , TP ( 2)  )  ,  (PROJX, XY)  ,  ( PRO JY , X Y  (2 ) ) 

M=  P  0  IN  T  (I ,  J) 

DO  10  1 1  =  1  ,  N 
MM=POI NT 2  (M) 

IF (IX (MM)  .EQ.O  .OR.  IY  (MM)  . EQ. 0) G0T08 
AZ  =  FLOAT  (NUM1  (MM)  ) 

LAZ= .TRUE. 

IF  (AZ. LT. 180. 0)  LAZ=. FALSE. 

XP  =  X ST ART+ SCALE* ( I X (MM ) -I XMI N (1 )  ) 

YP=SCALE*  (IY  (MM)  -  IXMIN  (2)  ) 

X2-XP+SPX1 
X  3  =  X  2 

IF  (IZ  (MM)  .EQ.O) GOTO  1 5 
ELEV  =  FLOAT  (IZ  (MM)  ) 

IF  (LAZ)  GO  TO  20 

FL  N  =  ALOG 1 0 (ELEV)  +1.0 

X2=  XP-  (S  PX  1  +  6 . 0/7 .0*FLN*HTE) 

20  CALL  NUMBER (X2, YP+SPAC1 , HTE, ELEV,0. 0, -1) 

15  IF  (LABEL  (MM)  .  EQ.  BLANK)  G0T09 
CALL  LEN1  (LABEL  (MM)  ,8,  1,NC) 

IF  (LAZ)  GO  TO  30 
X  3  =  X  P - (SPXl+NC*6. 0/7 .  0*HTT) 

30  CALL  SYMBOL  (X3 , Y P-S PAC2, HTT, LABEL  (MM)  ,0.0, NC) 

9  AN  G=0 . 0 

DO  5  JJ=1, 2 

CALL  SYMBOL  (XP, YP, . 20*JJ*HTS,  1 , ANG,- 1) 

ANG=ANG+45. 0 
5  CONTINUE 

IF  (LIST.  EQ.  2)  WRITE  (7,  103)  MM,  NUM1  (MM)  ,NUM2  (MM) 

103  FORMAT (IX, 1 4 , 5  X , * N  U  M 1  = 1  ,  1 4 , 5  X  ,  • N  U  M  2  =  '  ,14) 

TREND= AZ 
PLIJNGE  =  NUM2  (MM) 

IF  (LIST.  EQ.  2)  WRITE  (7, 1  01)  TREND,  PLUNGE 

101  FORMAT  (' +'  ,37X,*TREND=',F6.1,5X, ' PLU  NGE= ' ,F6.  1) 
PLUNGE=PLUNGE*DTR 

TREND=TREND*DTR 

10Q  CALL  TPXYEQ  (TREND, PLUNGE, 1 , DPI, PROJX ,PROJY, 1, 1 ,IER) 

IF (IER.NE.O)  STOP  1  3 

IF  (LIST.  EQ.  2)  WRITE  (7, 102)  PROJX,  PRO  JY 

102  FORMAT ('+', 72 X, • PROJX= • ,F6 . 3 , 5X , • PROJY= • , F6 . 3) 

X  P  P=  X  P  +  PROJX 

YPP-YP+PROJ Y 
CALL  PLOT  (XP, YP,3) 

CALL  PLOT  (XPP, YPP,2) 

8  M=  M ♦  1 

10  CONTINUE 
RETURN 
END 

SUBROUTINE  RJUST8(A) 

C  RIGHT- JUSTIFIES  NON-BLANK  CHARACTERS  IN  AN  8-CHARACTER  STRING 
INTEGER*  2  C,BL/*  '/ 

LOGICAL*!  A  (8 )  , B  (2 ) / •  '/# BL1/'  •/ 

EQUIVALENCE  (B,C) 

C 

L=8 

50  B  ( 1 )  =  A  (L) 

IF  (C.NE. BL) GOTO  100 
L=L-1 

IF (L) 140 ,140,50 


MAP33600 
MAP33610 
MAP33620 
MAP33630 
M  A  P  3  3  64  0 
MAP  3 3650 
MA  P33660 
MAP  3 3670 
MAP33680 
MAP33690 
M  A  P  3  3700 
MAP33710 
MAP  3372  0 
MAP33730 
MAP  3  374  0 
MAP33750 
M  A  P  3  3760 
MA  P33770 
MAP  3 3780 
MAP33790 
MAPI  380  0 
MAP3381 0 
M  A  P  3  382  0 
M  A  P  3  383 0 
MA  P33840 
MAP33850 
MAP33860 
M AP33870 
M  A  P  3  3  88  0 
MAP33890 
M  A  P 3  390  0 
MAP33910 
M  A  P 3  392  0 
M  A  P  3  3930 
MAP33940 
M  A  P  3  3950 
MAP  33960 
M  A  P  3  3  97  0 
M  A  P  3  398  0 
M  A  P  3  3  99  0 
MAP34000 
MAP34Q10 
M A  P34020 
M AP34030 
M  AP34040 
MAP  3 4050 
MAP 34060 
M  AP34070 
MAP34080 
MAP34090 
MAP 3 4100 
M  AP34  11 0 
M  A  P  3  4 1 2  0 
M A  P34  130 
M AP34  140 
MAP34  150 
M AP34160 
MAP34170 
MAP34180 
MAP34190 
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c 

100  IF  (L. EQ. 8)  RETURN 
K=8 

110  A  (K)  =A  (L) 

K=  K  - 1 
L=L-  1 

IF  (L)  120, 120,1  10 
120  A  (K)  =BL 1 
K=  K- 1 

IF  (K) 140,  140,120 
140  RETURN 
END 
C 
C 

C  SUBROUTINE:  LEN1 
C 

C  PURPOSE:  TO  DETERMINE  THE  NUMBER  OF  CHARACTERS  IN  A  CHARACTER  STRING 
C  UP  TO  AND  INCLUDING  THE  RIGHTMOST  NON-BLANK  CHARACTER. 

C 

C  PARAMETERS: 

C  S  LOCATION  OF  STRING 
C  L  NUMBER  OF  CHARACTERS  IN  STRING 
C  K  SPACING  OF  CHARACTERS 

C  N  RETURNED  NUMBER  OF  CHARACTERS  UP  TO  AND  INCLUDING  THE 
C  RIGHTMOST  NON-BLANK  CHARACTER 

I  C 

C  SUBROUTINES  CALLED:  NONE. 

C 

c 

SUBROUTINE  LEN  1  (S  ,  L,  K,  N) 

LOGICAL*  1  S  (L)  ,  B  (2) 

INTEGER*2  C, BLANK/'  '/ 

EQUIVALENCE  (B,C) 

i  C 

C=  BL  A  N  K 
N=  L 

1=  (L-1)  *K+1 

1  D  ( 1  )  =S  (I) 

IF  (C.NE. BLANK) GOT02 

N=N-r 

1=  I-K 

IF  (1)2, 2,1 

2  RETURN 
END 


M  A  P  3  4  20  0 
M  A  P  3  4  2 1 0 
M A  P34220 
M AP34230 
M  A  P  3  4  2  4  0 
M AP34250 
MAP 3 4260 
MAP  34270 
M AP34280 
MAP34290 
MAP34300 
MAP34310 
M A  P34320 
M  A  P  3  4  3  3  0 
M A  P34340 
MAP  3  4 350 
M AP34360 
M  A P 34 37 0 
MAP343R0 
MAP  34390 
MAP34400 
MAP34410 
MAP34420 
MAP34430 
MAP  34440 
MAP34450 
MAP34460 
MAP34470 
M AP34480 
MAP34490 
M A P 34 500 
MAP34510 
MAP34520 
MAP  3 4 530 
MAP34540 
M  A P  34 550 
M  A  P  34 56 0 
MAP34570 
M AP34580 
MAP34590 
M AP34600 
MAP34610 
M AP34620 
MAP34630 
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Iden tif icat ion 

Program  name: 

MODEL  1 

Program  title: 

Areal-analysis  package  -  statistics  for  weighted  points 
on  the  hemisphere. 

Author : 

John  Ramsden 

Organization : 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date  : 

1  October  1974 
Program  version  number: 

1 


Application 


Purpose : 


To  compute  "Bingham"  statistics  and  "Fisher"  statistics 
for  weighted  points  cn  the  hemisphere. 

Method: 

The  program  calls  the  subroutine  DCFM1  to  compute  the 
data  crocs-prcduct  matrix,  then  subroutine  ESTAT1  to 
estimate  population  parameters  using  Bingham's  model.  This 
subroutine^ a Iso  tests  the  hypotheses  of  uniformity  and  axial 
symmetry  using  the  eigenvalues  of  the  data  cross  produc. 
matrix  Depending  on  the  results  of  these  tests,  the  program 
p«fc»s  a  more  sensitive  test  for  axial  symmetry,  using 
Kuiper's  statistic,  by  calling  the  subroutine  CIRC1. 


"Fisher"  statistics 
SC0M1  tc  compute  sums 


are  obtained  by  calling  subroutine 
of  components,  sutroutine  FSTATl  to 


aoi rtsoiii  j  c 
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estimate  population  parameters  using  Fisher's  model,  and 
subroutine  CIRC1  to  test  for  axial  symmetry  about  the  Fisher 
mean . 

Data  restrictions: 

Maximum  number  of  data  points  in  one  sample  is  100. 
Timing : 

The  program  requires  about  2  seconds  of  CPU  time  to 
process  cne  sample  containing  300  points. 


Implementation 


Original  installation: 


Organization: 

Computer: 

I/O  devices: 

Software : 


University  of  Alberta  Computing  Services. 

IEM  360  model  67  (1024K)  . 

card,  disc,  tape,  typewriter  terminals  and 
display  terminals. 

Michigan  Terminal  System  (MTS) ,  a  virtual- 
storage  time-sharing  system. 


Source  language: 

FORTRAN  IV 

Subroutines  and  function  subprograms  required 

Subroutines  DCPM1  ESTAT1  CIRC1  SCOM1  ESTAT1  BSTATG  VRM1 
RTSP  ANDC  DCAN  XKF  BSTATC  KUIP2  SYMM  ROT MAT  and  functions 
XK 1  XK3  and  TAB1  from  JR  subroutine  library.  Subroutines 
GTPRD  GM PRD  and  EIGEN  from  SSP  subroutine  library. 

Size  : 


Total  program  size  including  all  required  subroutines 
is  86184  bytes. 

Requirements  for  I/O  devices: 


' 

4 


Maximum  FORTRAN 
record  length 
(bytes) 


device  suggested 

control  device 

statement  s 
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I/O 

unit 

no. 


read/ 

write 


1 

read 

1600  unformatted 

none 

tape;  disc. 

6 

write 

76  formatted 

none 

line  printer 

7 

write 

30  formatted 

none 

disc ; 

card  punch 

Usage 


Input : 


I/O  unit  1:  input  data. 


Unformatted  record 
cosines  and  weights  for 
"direction  cosines,  wei 
repeated  for  each  data  p 
or  INPUTK1. 


s,  each  record  cc 
up  to  100  poin 
ght"  (four  fullwor 
cint.  As  written  b 


ntaining  direction 
ts.  The  sequence 
d  real  numbers)  is 
y  program  INPUT1 


Output: 

I/O  unit  6:  printout  of  statistics. 

All  computed  statistics  are  written  on  this  I/O  unit, 
with  printer  carriage  ccntrcl. 


I/O  unit  7:  eigenvectors. 

Th®  eigenvectors  of  the  data  cross-pr cduct  matrix  are 
written'"  on  this  unit  for  later  use  by  other  programs.  Three 
formatted  records  are  written,  each  record  containing  the 
direction  cosines  of  one  eigenvector  in  the  normal  sequence 
(north,  east,  down).  The  sequence  of  eigenvectors  is  such 
that  the  associated  eigenvalues  are  in  ascending  order. 


* .  >/i 


o  n  n  n  no 


c 

c 

C  AREAL- ANALYSIS  PACKAGE  -  PROGRAM  '•MODEL'!". 

C 

C 

REAL  DC  (3,  2000)  ,W(2000)  ,  0  (6)  ,  E  (3 , 3 )  ,  S  ( 1 2)  ,  T  (6 )  ,  R  (4) 
REAL  DCR (3 , 2000) 

INTEGER  TITLE  (30) 


1  FORMAT  (•  •/•  •/•  TEST  OF  UNIFORMITY  ABOUT  EIGENVECTOR •,  12) 

2  FORMAT  (•  •/•  •/•  TEST  OF  UNIFORMITY  ABOUT  FISHER  MEAN') 

3  FORMAT  (3F10 . 6) 

6  FORMAT  (’  1  • ) 

5  FORMAT (//////) 

4  FORMAT  (IX,  F10.0) 

7  FORMAT (IX, 15, 1X,30A4) 

8  FORMAT('  ***  NOT  PROCESSED') 

9  FORMAT(1X,I4,4F10.6) 


WEI GHT=- 1 . 0 

READ  (5,4,  END  =  80)  WEIGHT 


80  REA D ( 1 ,END=90C)  N N , N V , N O, N PH R , TI TLE 
WRITE  (9,7)  NO, TITLE 
IF  (NO. LT. 10) GOTO400 
K  A  =  1 
KB=100 

85  IF  (KA.GT. NO) GOTO90 
IF  (KD. GT. NO) KB=NO 

RE  A  D  ( 1 )  N,NE,  (  (DC  ( I  ,  J)  ,1  =  1,3)  ,  W  ( J)  ,J=KA,KB) 

KA=KA+ 100 
KB=KB+ 100 
GO TO 8 5 
90  S  W  =  0 . 0 

DO  95  J= 1 , NO 
IF (WEIGHT) 95,94,93 
9  3  IF  (W  fj)  .  GT.  WEIGHT)  W  (J)  =W EIGHT 
GOTO 9 5 

94  W(,J)=1.0 

95  SW-SWtW(J) 

DO  97  .1=1  ,  NO 

97  WRITE  (6,9)  J,  (DC  (I,  J)  ,  1  =  1,  3)  ,  W  (J) 

N  =  NO 

CALL  DCPM1  (  DC , W , N , U ) 

WRITE  (6,6) 

1100  CALL  E3TAT1  (N , TITLE, SW , U , E , S , T, I R,  XK , R, 6) 
WRITE  (7,3)  {  (E  (I,J)  ,J=1,3)  ,1=1,3) 

IR=IR+  1 

GOTO  (100,20  0,210,300)  ,  IR 
100  DO  1 80  J=1 , 3 
WRITE  (6 , 1 )  J 

CALL  C IRC 1  (DC,DCR,W,N,SW,E (1 , J)  , 3 , 1 R  ,  6) 

180  CONTINUE 
GOTO  30  0 
200  J=1 

GOTO220 


MODL  10 
MO  DL  20 
MODL  30 
MODL  40 
MODL  50 
MODL  60 
MODL  70 
MODL  80 
MODL  90 
MODL  100 
MODL  110 
MODL  120 
MODL  130 
MODL  140 
MODL  150 
MODL  160 
MODL  170 
MODL  180 
MODL  190 
MODL  200 
MODL  210 
MODL  220 
MODL  230 
MODL  240 
MODL  250 
MODL  260 
MODL  270 
MODL  280 
MODL  290 
MODL  300 
MODL  310 
MODL  320 
MODL  330 
MODL  340 
MODL  350 
MODL  360 
MODL  370 
MODL  380 
MODL  390 
MODL  400 
MODL  410 
MODL  420 
MODL  430 
MODL  440 
MODL  450 
MODL  460 
MODL  470 
MODL  480 
MODL  490 
MODL  500 
MODL  510 
MODL  520 
MODL  530 
MODL  540 
MODL  550 
MODL  560 
MODL  570 
MODL  580 
MODL  590 
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210  J=3 

220  WRITE(6,1)J 

CALL  CIRC1  ( DC ,  DCR  ,  W , N , SW , E  ( 1 , J)  ,  3,IR,6) 
300  CONTINUE 

CALL  SCOM1  (DC,W,N,E  (1,  3)  ,3,U) 

WRITE  (6,5) 

CALL  ESTAT1 (TITLE , N , S W , U, E , S , T , XK , R , 6 ) 
WRITE  (6,2) 

CALL  CIRC  1 (DC,DCR,W,N, SW,E,3,IR,6) 

GOTO80 

400  WRITE  (9,8) 

READ  (1) 

GOTO80 

900  STOP 
END 


MODL  600 
MODI.  610 
MODL  620 
MODL  630 
MODL  640 
MODL  650 
MODL  660 
MODL  670 
MODL  680 
MODL  690 
MODL  700 
MODL  710 
MODL  720 
MODL  730 
MODL  740 
MODL  750 
MODL  760 
MODL  770 
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Identification 

Program  name: 

NPPLCT1 

Program  title: 

Areal-analysis  package  -  calcomp  point  diagram. 

Author : 

John  Ramsden 
Organization: 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date  : 

1  October  1974 
Program  version  number: 

1 


Application 


Purpose : 

To  generate  commands  for  a  digital  incremental  plotter 
to  produce  a  point  diagram  of  non-polar  orientations  on 
Lambert's  equal-area  projection. 

Method : 

The  orientations  must  be  given  as  direction  cosines. 
These  are  converted  into  X,Y  coordinates  cn  the  projection 
by  the  subroutine  RTXYEQ.  The  projection  is  horizontal 
unless  defined  otherwise  by  a  parameter  card.  If  a  non— 
horizontal  projection  is  requested,  the  data  are  rotated 
before  the  subroutine  RTXYEQ  is  called. 

Data  restrictions: 

Maximum  number  of  points  in  any  plot  is  1000. 
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Timing : 

0.006p;  t=CPU  time  in  seconds;  s=number  of  samples 
(number  of  plots  produced) ;  p=total  number  of  data  points  in 
all  plots. 


Implementation 


Original  installation: 


Organization : 
Computer : 

I/O  devices: 

Software : 


University  of  Alberta  Computing  Services. 

IEM  360  model  67  (1024K) . 

card,  disc,  tape,  typewriter  terminals  and 
display  terminals. 

Michigan  Terminal  System  (MTS) ,  a  virtual- 
storage  time-sharing  system. 


Source  language: 

FORTRAN  IV 

Subroutines  and  function  subprograms  required: 

The  following  subroutines  from  JR  subroutine  library: 
VRM1  ROTMAT  DCAN  RTXYEQ.  The  following  subroutines  from  SSP 
subroutine  library:  GMPRD  GTPRD.  The  following  subroutines 
from  the  system  plotting  subroutine  library:  PLOTS  SYMBOL 
CIRCLE  NUMBER  PLOT. 


Size  : 

Size  including  all  required  subroutines  except  plotting 
subroutines  is  45696  bytes.  Size  of  required  plotting 
subroutines  at  original  installation  is  7920  bytes. 


Requirements  for  I/O  devices 


I/O 

unit 

no. 


1 

4 

5 

6 
? 


read/ 

write 

Maximum  FORTRAN 
record  length 
(bytes) 

device 
control 
statement  s 

suggested 

device 

read 

1608  unformatted 

none 

tape;  disc. 

read 

determined  by 
given  format 

none 

disc;  card. 

read 

80  formatted 

none 

disc;  card. 

write 

81  formatted 

none 

line  printer 

wr  ite 

depends  on  plotting 
subroutines 

7 

• 

tape;  disc. 

y.  •  :  t  .  ?ii:  4 1  0'->£  • 
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Usage 


Input : 

I/O  unit  1:  data 

As  written  by  programs  INPUT1,  INPUTK1,  or  DSPDAT1.  As 
many  samples  as  desired  may  follow  sequentially.  One  plot 
will  be  produced  for  each  sample. 

I/O  unit  4:  normal  tc  projection  plane 

Used  only  if  a  "P"  or  HQ"  parameter  card  is  supplied 
with  a  non-positive  number  in  the  fourth  numeric  field. 
Format  given  on  parameter  card. 

I/O  unit  5:  parameters 

Parameter  cards  are  optional.  The  reading  of  parameter 
cards  must  be  terminated  by  a  blank  card  cr  an  end-of-file. 
The  parameter  cards  are: 

(1)  Normal  tc  projection  plane.  Default:  vertical.  Card 
format : 

col  contents 

1  "F" 

2-11  trend  or  first  direction  cosine 

12-21  plunge  or  second  direction  cosine 

22-31  blank  or  third  direction  cosine 

32-40  code:  ♦- 1 . 0  if  trend  and  plunge  given  in  degrees 
+-2.0  if  trend  and  plunge  given  in  radians 
+-3.0  if  direction  cosines  given 
code>0  if  information  is  on  parameter  card 
code<0  if  information  to  be  read  on  unit  4 
41-80  format  for  reading  unit  4  if  required. 

If  this  parameter  card  is  supplied  with  "C"  in  column  1  two 
plots  will  be  produced,  one  using  the  horizontal  projection 
plane  and  one  using  the  specified  projection  plane. 

Output: 

I/O  unit  6:  error  messages 

I/O  unit  ? :  output  from  plotting  subroutines 

Unit  number  and  device  requirements  depend  on  plotting 
subroutines. 
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C 

c 

C  A REAL-ANALYSIS  PACKAGE  -  PROGRAM  "NPPL0T1". 

C 

c 

REAL  DC  (3,  1000)  ,W  (1000) , DC R (3,1  000) 

INTEGER  TITLE  (.10) 

LOGICAL* 1  ROTAT/. FALSE ./, BOTH/. FALSE ./, ALPHA (40) 
REAL  PPP/' P  '/,  BLA/'  •/ , X  (4 )  , RM  (9)  , KEW/' O' / 

C 

1  FORMAT  (Al,3F10.0,F9.0,49Al) 

2  FORMAT (/IX ,• INVALID  P A R A  ME TE R  C A RD • /I  X , A 1 , 4 F 1 0 . 4/ 
*1 X , ' "• , A1 , * "  IS  INVALID') 

3  FORMAT  (/IX,  • INVALID  PARAMETER  CA RD ' / 1 X, A  1 , 4F 1 0 . 4/ 
*  1  X  ,  '  "  1  ,  F  1 0 . 4  ,  '  "  IS  INVALID') 

C 

15  RF,  AD(5,1,END  =  50)  A, X, ALPHA 
IF  (  A.  EQ.  PPP)  GOT019 
IF (A.EQ.KEW) GOTO 20 
IF  (  A  .  F.Q.  BLA)  GOTO50 
WRITE  (6,2)  A,  X,  A 
STOP  12 

19  BOTH  = . TRUE . 

GOT 02 2 

20  ROT A  T= . TRUE . 

22  j  =  X  ( 4 ) 

IF  (J.NE.O  .AND.  IABS(J)  .LT.4)  G0T025 
WRITE  (6, 3)  A  ,X,X  (4) 

STOP  1  2 

25  IF  (J.GT.O)  GOTO 30 
J^-J 

GOTO  (26,26,27)  ,  J 

26  READ(4,  ALPHA)  X  (1)  ,X  (2) 

GOT 030 

27  RKAD(4,  ALPHA)  X  ( 1 )  ,X(2)  ,X(3) 

GOT 03 0 

30  CALL  V  R  M 1  (X,RM,J) 

G0T015 

50  CALL  PLOTS 
I  PLOT-0 

READ  SAMPLE 

90  READ(1,END=300)  N N , N V , N 0 , T I TLE 
K  A  =  1 

K  it  ~  1  0  0 

94  IF  (KA. GT.  NO) G0T098 
IF  (K1).  GT.  NO)  KB-NO 

READ  (1)  (  (DC  (I,  J)  ,1=1#  3)  ,W  (J)  ,J  =  KA,KB) 

K  A  - K  A  *  100 
KB  =  KB  +  100 
GOTO  94 
98  CONTINUE 
N  =  N  0 

100  CONTINUE 

IPLOT= I  PLOT ♦ 1 

YP=  (MOD (I  PLOT, 3) -1)  *9. 0*4. 5 
XP=  ( IPLOT/3) *12.0  +  5.5 
IF ( . NOT. ROTAT) GOTO200 
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NPPL 

10 

NPPL 

20 

NPPL 

30 

NPPL 

40 

NPPL 

50 

N  PPL 

6  0 

NPPL 

70 

N  P  P  L 

8  0 

NPPL 

90 

NPPL 

100 

N  P  [  L 

110 

NPPL 

120 

NPPL 

130 

NPPL 

140 

NPPL 

150 

NPPL 

160 

NPPL 

170 

NPPL 

180 

NPPL 

190 

NPPL 

200 

NPPL 

210 

NPPL 

220 

NPPL 

230 

NPPL 

240 

NPPL 

250 

NPPL 

26  0 

NPPL 

270 

NPPL 

280 

NPPL 

290 

NPPL 

30  0 

NPPL 

310 

NPPL 

320 

NPPL 

3  30 

NPPL 

340 

NPPL 

350 

NPPL 

360 

NPPL 

370 

NPPL 

38  0 

NPPL 

39  0 

NPPL 

40  0 

NPPL 

410 

NPPL 

420 

NPPL 

430 

NPPL 

440 

NPPL 

450 

NPPL 

460 

NPPL 

470 

NPPL 

480 

NPPL 

490 

NPPL 

500 

NPPL 

510 

NPPL 

520 

NPPL  530 
N P PL  540 
NPPL  550 
NPPL  560 
NPPL  570 
NPPL  580 
NPPL  590 
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CALL  GMPRD  (RM,DC,DCR,3,3.N) 

180  CALL  CC1  (0,N,DCR, TITLE, 120,XP,YP,3. 937) 

GOT 02 50 
200  CONTINUE 

225  CALL  CCl  (0 , N , DC , TITLE , 1 20 , XP, YP,3.937) 

250  IF  ( . NOT. BOTH) GOTO90 
IF (POTAT) GOTO260 
ROT  AT= .TRUE. 

GOTO  ICO 

260  ROTATE. FALSE. 

GO TO 90 

300  CALL  PLOT (0.0,0.0,999) 

STOP 

END 

SUBROUTINE  CCl  ( J , N , DAT A , ID , NC H , XP , YP , R A) 

C  CALLS  PLOTTING  SUBROUTINES  TO  PLOT  THE  POINT  DIAGRAM 
REAL  DATA  (3000) 

REAL  XY  (2000) 

LOG  ICA  L*  1  I  D  ( 1 ) 

C 

1  FORMAT (//IX, 'SUBROUTINE  "CCl":  ERROR  CODE', 13,'  FROM  SUBROUTINE 
♦TXYEQ".  EXECUTION  TERMINATED.') 

C 

CALL  RTXYEQ  (DATA  (1)  ,DATA  (2)  ,DATA  (3)  ,  3,RA,XY  (1)  ,X  Y  (2)  ,  2,  N,  IER) 

IF (IER . N  E . 0 ) GOTO 500 
TR  A  =  R  A/ 1 0.0 
TR  A  2=TR A /2 . 0 
H  W  =  T  R  A  /  3 . 5 
X X  =  X  P- R  A -TR  A 
YY=YP-MW 

CALL  SYMBOL  (XX, YY,TRA,  85,90.0,-1) 

CALL  SYMBOL  (XP -R A, YP,TRA, 13,90.0,-1) 

CALL  CIRCLE  (XP-RA, YP,  180.0, 90. 0,RA,RA, 0.0) 

CALL  SYMBOL  (XP,YP*RA,TRA, 13,0. 0,-1) 

CALL  CIRCLE  ( X P  ,  Y P* R A ,  9 0 . 0 , 0 . 0  ,  R A ,  R A  ,  0 . 0) 

CALL  SYMBOL  (XP  +  RA,YP,TRA, 13, 90. 0,-1) 

CALL  CIRCLE  (XP  +  RA, YP, 0.0, -90. 0,RA,RA, 0.0) 

CALL  SYMBOL  (XP,YP-RA,TRA, 13,0. 0,-1) 

CALL  CIRCLE  (XP,YP-RA,-90.0,-180.0,RA,RA,0.0) 

CALL  SYMBOL  (XP , YP,TRA, 3,0. 0,-1) 

CS  -  RA/20 . 0 

cues 

XX  =  XP*HA*-CH  *T  R  A 
YY - Y P-CS-CS 

CALL  SYMBOL  ( X X , Y Y ,CH , 8 5 , 9 0 . 0 , - 1 ) 

YY-YP-CS 

CALL  SYMBOL  ( X X , Y Y , CH ,  1  2 6 , 90 . 0 , - 1 ) 

AN  -  N 

CALL  NUMBER  (XX, YP,CH, AN, 90. 0,-1) 

NC  -  NCII 

If (NC. EO- 0)  GOTO  2 50 
IF (NC. GT.  120)  NC= 1 20 
1ST A  HT=- 39 
IFINIS=C 

200  1ST  A  RT  =  I ST  A  RT  +  4  0 

IF (1ST ART. GT. NC) GOTO250 

IFINIS=IFINIS+40 

IF (IFINIS.GT. NC) IFINIS=NC 

NCHAR=IFINIS-ISTART+1 

XX=XX*CH*CH 


NPPL  600 
NPPL  610 
NPPL  620 
NPPL  630 
NPPL  640 
NPPL  650 
NPPL  660 
NPPL  670 
NPPL  680 
NPPL  690 
NPPL  700 
NPPL  710 
N  P T L  720 
NPPL  730 
NPPL  740 
NPPL  750 
NPPL  760 
NPPL  770 
NPPL  780 
NPPL  790 
"RNPPL  8C0 
NPPL  810 
NPPL  820 
NPPL  830 
NPPL  840 
NPPL  850 
NPPL  860 
NPPL  870 
NPPL  880 
NPPL  890 
NPPL  900 
NPPL  910 
NPPL  920 
NPPL  930 
NPPL  940 
NPPL  950 
NPPL  960 
NPPL  970 
NPPL  980 
NPPL  990 
NPPL1 000 
NPPL  1010 
N  P  P  L  1 0  2  0 
NPPL 1030 
NPPL  1040 
NPPI.1  050 
NPPL  1060 
NPPL1 070 
NPPL  1080 
NPPL1 090 
NPPL  1 100 
NPPL1  110 
NPPL1 120 
NPPL  1 130 
NPPL1 140 
NPPL1 1 5  C 
NPPL  1 160 
NPPL1  170 
NPPL1 180 
NPPL  1 190 


Y  Y - Y  P- R  A 

CALL  SYMBOL  (XX,  YY,CHrID  (ISTART)  ,90.0,NCHAR) 

GOTO 200 
250  K=  0 

DO  300  1=  1  ,  N 
K=  K  *  2 

XX  =  XP-X Y  (K) 

YY= YP+XY  ( K— 1 ) 

CALL  SYMBOL  (XX, YY, 0.05, 1,0.0, -1) 

300  CONTINUE 
RETURN 

500  WRITE  (6, 1)  IER 
STOP  1 2 
END 


NP PL  120  0 
NPPL1210 
N PPL  1220 
N PPL  1 230 
N PPL  124  0 
NPPL1250 
N  P  PL  1  260 
N PPL  127  0 
NPPL  1280 
NPPL1290 
N  P  PL  1  300 
NPPL1310 
N  PPL  1  32  0 
NPPL1330 
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Identification 

Program  name: 

ROSE 

Program  title: 

Smoothed  circular  histograms. 

Author : 

John  Ramsden 
Organization : 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date : 

1  October  1974 
Program  version  number: 

1 


Application 


Purpose : 

To  produce  on  the  Calcomp  plotter  smoothed  circular 
histograms  (rose  diagrams)  given  a  vector  of  relative 
frequencies  in  360  1-degree  intervals. 


Method : 

The  given  density  function  (vector  of  relative 
freauencies)  is  smoothed  using  as  a  smoothing  function  t 
von  Mises  probability  density  function  with  specified 

parameter. 


Data  restrictions: 
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The  given  density  function  must  be  normalized,  that  is, 
it  must  consist  of  360  relative  frequencies  whose  sum  is 
unity. 

Timing  : 


6.3  seconds  CPU  time  required 
producing  1  smoothed  plot  for  each 
function  parameter  of  50. 


to  process  3 
sample  using  a 


samples , 
smoothing 


Implementation 


Original  installation: 


Organization: 
Computer : 

I/O  devices: 

Software : 


University  of  Alberta  Computing  Services. 

IBM  360  model  67  (1024K) . 

card,  disc,  tape,  typewriter  terminals  and 
display  terminals. 

Michigan  Terminal  System  (MTS) ,  a  virtual- 
storage  time-sharing  system. 


Source  language: 


FORTRAN  IV 

Subroutines  required: 


Subroutines  from  system  plotting  subroutine  library: 
PLOTS,  PLOT,  SYMBOL,  NUMBER,  POLAR,  WHERE. 

Size : 

Total  size  of  user- supplied  program  =  8712  bytes.  Total 
size  cf  required  library  subroutines  at  original 
installation  =  146C8  bytes.  Total  23320  bytes. 


Requirements  for  I/O  devices: 


I/O 
unit 
no . 

read/ 

write 

maximum  FOFTFAN 
record  length 

device 

control 

statements 

suggested 

device 

1 

read 

1564  unformatted 

none 

tape,  disc 

5 

read 

80  formatted 

none 

card  reader 

6 

write 

126  formatted 

none 

line  printer 

• 

write 

depends  on  plotting 
subroutines 

« 

tape,  disc 

Usage 


Input: 

I/O  unit  1 :  data . 

Any  number  of  unformatted  records,  each  consisting  of: 
120  bytes  containing  a  title,  4  bytes  containing  the  number 
of  observations  as  a  fullword  integer,  and  1440  bytes 
containing  the  relative  frequencies  as  060  one  word  real 

numbers . 

I/O  unit  5:  parameters. 

Three  parameter  records.  The  first  contains  the  length 
of  the  reference  axes  in  inches  as  a  real  number  (with 
decimal  point)  in  columns  1-10.  The  plot  is  scaled  so  that 
half  of  this  distance  (from  the  centre  of  the  plot  to  the 
end  of  the  axis)  corresponds  to  a  relative  frequency  (per 
dearee)  of  1/120.  The  second  and  third  parameter  cards  are 
identical  and  each  contains  up  to  20  numbers  in  contiguous 
4-column  fields,  either  as  right- justified  integers  or  with 
decimal  points.  Each  number  is  the  parameter  of  the  von 
Mises  density  function  to  be  used  as  the  weighting  function. 
One  rose  diagram  is  produced  for  each  field  up  to  and 
inrludino  the  last  non-blank  field.  If  a  blank  or  zero  field 
occurs  before  the  last  non-blank  field,  the  data  are  plotted 
without  smoothing  for  that  field. 

Output : 

I/O  unit  6:  messages. 

The  title  and  number  of  observations  for  each  set  of 
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data  are 
I/O  unit 
The 

depends 


written  on  this  unit. 

?:  plot  description  file. 

number  of  this  unit  and  the  nature  of  the  output 
on  the  system  plot  routines. 


349 


?8ssss?ss§ssssss?sfs?as§sssssg?sssss 

SSSSSSSSSSS5KS5SSS|SSSSSKSSSSS|SSSKS 

sssssssssssssssssssssssssssss------- 


\ 

m 

II 

33 

a  o 

-  O' 

•  r* 

W  «* 
«  \ 
E-i  - 
O 


o  - 

• 

E  \ 

tx3 

CO  i*s 

85 

55 

i«3 

.  ~  *3 

Ml 

CO  \  m! 

CQ 

S3  ^  PQ 
<3  CO  *• 

O 

03  w  — » 

03 

O  CN  O 

«3 

O  H  CN 

U 

EH  -  w 

CO  \  CQ 

ct. 

H  -  * 

PQ 

33 

Eh 

a  o 

W 

05  W  CN 

S3 

rtj  33 

<3 

Ml  -  ***3 

03 

O  M  •» 

*3 

CJ  -  — 

CM 

03  H  O 

H  O  Cl 

1 

u  o  w 

S3  W 

03 

O  -  Ml 

O 

W  m  Eh 

03 

33  -  H 

03 

Eh  tO  Eh 

w 

O  S5  *. 

O  D  M-. 

* 

£3  O 

•» 

CO  -  v£> 

-ft 

V  ro 

=a-  » 

1  , —  w 

«u  » 

Ot  CO 

o  x; 

W  w  * 
W  r  ^ 
OHO 
03  vO 

m!  on 
e  rt  w 

<3  P*1  PM 
03  03  * 

O  * 

O 
03 
a 4 

u 


*3 

O 

co 

w 

X 
— .  r- 

3  * 

»  & 


CN 


Pm 


CN 


H  H  H  H 
^3  *3  ^3  **3 
E  a  E  s 
05  PS  05  05 

o  o  o  o 

Cn  CM  Cm  Pm 


T~  CN  •'Q  ^  lD 


U 


to 

Q 

03 

*3 

(J 

03 
—  W 
O  EH  -C 
.  W  H 
OEO 
t~  <“53  .«-« 
CM  03  ID 

W  ,<  *. 

H  Q-i  lO 

-3 

S3  O 
03  <3 

o  w  w 

Em  03  03 

I 
I 
I 
t 
I 

U 


o 

CN 


O 

O 

(N 

O 

H 

O 

o 

U5 

55 

*3 

m! 

OQ 

• 

W 

8= 

• 


H 

O 

m! 

CM 


*■3 

H 

O 


Pm 

m 

55 

m 

00 

H 

H 

EH 


*■3 

*3J 


O 

«3 


*-  g 
•.  rs 
in  o  i 
w  o  r-  w 

Q  »-  CN  <3 
*3  II  w 
PQ  O  T3  Pm 

03  GO  H 


CN 

W  «. 

33  NO 
55  w 
H  W 
H  H 
55  H 
O  03 
CJ  Oc 

o 

o 


CN 

fflWU 

w 

W  co  H  1/1 

*m1  “ 

un  k*3 


H 

Cx 


CM 

o 

H 


O 

85 

H 

H 

SB 

o 


o 

03 


fM 

w 

55 

m 

W 

m3 

EH 

H  W 
Eh  m! 
^  EH 
O  H 
Oo  H 
00  *■ 
II  E 
O  — 
55 

W  - 

*  30 


EH 

CN 

o 

O 

o 

Ml 

Pm 

EH 

CO 

CM 

O 

. — . 

o 

55 

Ml 

c*  >«. 

EH 

a 

% 

CM 

2  3E 

O 

w 

_  py 

**  85 

O 

33 

H  Ml 

O 

3= 

FH 

^  S3  H 

py 

M  t» 

O  H 
«*3  H 
W  25 


to  U  w  H 


O 

O 

CN 


U 


Q  O  H 
<3  <<  H 

ww« 

03  03  SB 

I 
I 
I 
I 
I 

U 


O  O 

ro  •  o 

TOE 

«.  •  co 

r-  W  S5 
II  55  O 
rj  * 

W 

o  n  u 
©  w  o 
vo  m  q 
W  o 

O  Pm  03 
O  H  CM 


O 

in 

CN 


r~  25  H 
Eh  *93  Eh 
CO  II  m3 

Ol 

r-  r-  II  U 
II  «"•  —  W 
♦  ID  co 
Hr  O 

w*  w  Cfi 

w  w 

m3  m3 
H  Eh 
H  H 
EH  Eh 

© 

v£> 

CN 


H 

O 

<o 

CN 

O 

o 


u 


03 
Eh 
C 
O 

S3 

to 

py 
U 

CO 
Q 
O 

03 
O  CM 

t 
t 
I 
I 
I 

o 


o 

o 

lO 

o 

H 

O 


O  to 

W  % 

CQ  Pm 

w  w 

23  33 
Pm  EH 
H  *33 

*  CO 

m3  Ml 

Ml  Ml 

*=C  <3 

u  u 


o 

o 

CO 


* 


. 


■ 


350 


oooooooooooo 

t'"-oo<r>©'r'CNr')=*ir>\£>r-co 

wwwwwwwwwwww 

cncninininininincncnmcn 

oooooooooooo 

0505Q505050505«050505P5 


o 

O 

o 

o 

O 

o 

o 

o 

o 

o 

o 

o 

04 

O 

T— 

CM 

CO 

3 

in 

M3 

r- 

00 

04 

o 

3 

in 

m 

m 

in 

in 

in 

in 

m 

in 

in 

ID 

Ed 

Ed 

Ed 

Ed 

Ed 

w 

Ed 

w 

Ed 

Ed 

Ed 

fd 

V) 

in 

V) 

in 

in 

in 

in 

in 

in 

in 

in 

in 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

O 

o 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

oooooooooooo 
r~  IN  (Ti  d-  in  vO  <D  ff'Or  CM 
M3M3M3'D\040'<D'v0  t —  (  ■  r^- 

pawwwwwwwwwww 

wt/jwwwtocnviwtnt/no 

oooooooooooo 

cccc(Ka;««cc'.  «  «  «  a  k 


H 


o 

CM 

% 

in 

*> 

Z 

w 

*4 
H 

CM  H 
H  *-D  H 
pi  ||  w 

«.  _  CM 

r-  t-  |l  U 
II  «-  ~  W 
H  +  tn  w 

H  T-  o 

O  — •  w  W 

m  w  Pd 
ro  h3  hi 
Eh  EH 
O  H  H 
Q  Eh  H 


*3 

M 

Q 

w 

O 

v 

Ed 

v 

25 

Pd 

>4 


►4 

i4 

*C 

CJ 


O 

m 

co 


Pd 

ed  o 
a  in 

H  <N 
Eh  O 
25  EH 
O  O 
cj  o 

O 

O 

O 


EH 

O 

►4 

& 

Pd 

in 

o 

h-i 

u 

I 

I 

I 

I 

I 

u 


CM 

U 

w 

VI 

o 

05 


*4 

>4 

<*< 

U 

o 

cr> 

o 


Oi 

O 

EH 

V) 


w 

u 

c 

05 

Eh 

V 

U5 

re 

u 

04 

ED 

V) 

O 

ED 

04 

W 

O 


25 

O 
O 

o  w 

CM  CJ 
C 
£h  05 
«C  Eh 


W 

EC 

Eh 

in 

E * 

>< 

05 

Q 

O 

Z 

«C 

w 

*4 

H 

Pm 

<3  Eh 
H  O 
Q  ►-! 

*.  Oj 
© 

*.  Pd 
Cm  EC 

*  EH 
Z 

*  , _ _ 

w  o 
>4  II 
Eh  © 
H  w 
Eh 

w  in 
cm  w 
u  in 
Ed  O 
VI  *A 
O  U 
05 

a 

Ed  25 
25  *6 
H 

EH  • 
ED  «- 
O  II 
05  © 
04 
ED 


C4 
25 
Ed  V) 


V) 

25 

w 

cu 

o 


\ 

CM 

I 

w 

O' 

CM 

P) 

m 

=t 


\ 

05 

Eh 

Q 


O 

M3 

CO 

<C 


o 

o 

04 

Em 


.  in 

, _ .  T~ 

04  w 

II  Ed 
©  *4 
w 

H 
in  eh 
E 

*C  .4 
05  <5 
O  W 
O  05 
EH 
V) 

H 

EC 


O 

iD 

% 

O 

o 

% 

Ed 

•4 

Eh 

H 

EH 


EC 

CO 

CO 

•> 

1 

1 

EC 

* 

CO 

1 

o 

1 

© 

X 

o 

• 

o  - 

• 

1 

© 

CO 

CM  O 

00 

05 

CM 

CM 

CM  • 

4 

1 

% 

„ _ . 

«■  04 

1 

« 

o 

o 

O 

H 

o  *■ 

*1 

05 

o 

• 

M3 

0 

r-  O 

o 

1 

r~ 

cr 

PI 

o 

CM  • 

• 

w 

». 

i 

% 

04 

H  O 

04 

»4 

o  in 

x— 

— ' 

o  w 

O 

O  EH 

EH 

II 

* 

T-  ^ 

EH 

O 

CQ 

04  O 

O 

H 

05 

CM  O 

o 

Ed 

•  o 

S4 

^*4 

►4 

Eh 

O 

•4 

D 

CM  • 

►h 

r-  Qj 

Ot 

O 

a  25 

ro  cu  o 

cu 

Z 

\© 

V) 

I 

c 

II  05 

r-  |  CO 

M 

<  CM 

i-j  _4 

41 

T“ 

h-  ED 

+  n;  J  o 

•4 

EH 

H  \  >4 

'-'■4 

►4 

C0 

H  Eh 

fcd  w  i4  Eh 

T  hd 

Z 

a  05 

i-l 

Pm  << 

C 

II  o 

wpd 

II  Em  <  O 

II  ^ 

o 

II  II 

<3 

H  U 

U 

Z  Q 

<5  05 

Z  H  U  O 

i*5  CJ 

u 

05  EC 

CJ 

o 

O 

O  © 

© 

© 

o 

O  f" 

CN 

o 

T-- 

r- 

CM  CM 

IN 

CO 

z 

II 

25 

!«*) 


o  cj  u 


U  u 


o 


i . 

351 


oooooooo 

co^u")'£>f~'cocr>o 

r-'t'-r-f-r^r-r^oo 

pqWWWWWWfa 

WWtOWlOVlWW 

oooooooo 

fafafafafafafafa 


ooooooooo 
T-CMoi^-m^r-oocr* 
00  00  00  00  00  00  00  00  00 

WWWWWWWWW 

wiowwtowtnww 

ooooooooo 

CttCQfafafafafafafa 


ooooooooo 

OT-cNjrocj-inor-oo 

O'0,>a>cr>^cr>cr>cr>av 

wwwwwwwww 

tnwwwwtowwt/) 

ooooooooo 

fafafafafafafafafa 


oo  oooooooo 
o^or-(Nfr)^in^rs® 
(^OOOOOOOOO 
T-r-r-r-r-r-r-t-  r~ 

w  w  w  w  w  w  w  w  w  w 
tnwvjwwwwwww 
oooooooooo 
fafafacefafafaosfaos 


CO 

w 

CO 

H 

*3 


Q 

w 

EC 

EH 

o 

o 

r 

CO 

55 

o 

w 

33 

Eh  • 


55 

O 

> 

fa 

33 

Eh 

fa 


w 

T- 

> 

1 

H 

*• 

O 

CD 

CM  O 

*c 

«*  « 

fa 

a 

o  o 

w 

o 

fa 

o  55 

* 

o 

*  *=c 

o 

H 

«w  «. 

Eh 

II  33 

T— 

O 

55  * 

1 

.  fa 

•> 

H  O 

«.  | 

r~ 

*  fa 

33  *• 

«. 

, _  „ — . 

a 

__ 

«.  33 

o 

CM  .  CM 

«»  CD 

fa 

fa  ♦ 

vD 

CO  «.  CO  *■ 

fa  fa 

* 

1  33 

CO 

*  fa  *.o 

fa  <T> 

w  M 

© 

*.  + 

•> 

fa  1  o  • 

«*  CTv 

fa  EH 

• 

fa  fa 

«.  w  •  o 

X  * 

fa  33 

o 

1  I 

hi 

o  o  o  * 

<*  X 

H  CD 

CM 

fa 

•  t  «•  fa 

X  »> 

a  H 

v- 

fa  fa 

o  O  fa  • 

X 

fa 

o  W 

« 

w  w  w 

w  w 

fa  a 

fa 

w 

> 

H 

CD 

CO 

O 

H 

Eh 

U 

55 

£3 

fa 

^  X 
a  Eh 

55  H 


55 

O 

H 

Eh 

U 

55 

£3 

fa 

CD 

55 

H 

EH 

33 

CD 

H 

fa 

3e 


O 
o 
^  m 
o  O 

.  EH 
r-  O 
I  CD 


V  PQ 
o  ad 
•  >h 
r-  CO 


II 

EH 

U 

<U 


t-J 

t-3 


fa  U 


co  rf 
ad  fa 
O  O 
s  fa 

-l  fa 
fa  fa 
•<  *«J 

u  u 


EH  EH  Eh  EH 
O  O  O  O 
hJ  fa  fa 
fa  fa  fa  fa 

.-1  fa  fa  fa 
fa  fa  fa  fa 
«aj  <4}  <*C  «s£ 
U  L)  U  U 


5E 

05 

£3 

Eh 

W 


fa 

W 

33 

* 

i -Q 
fa 
«£ 


O 

fa 

fa  55. 
« 
£3 

Eh 
W 


W 

33 

H 


fa 

fa 


H 
£3 
O 
fa  CO 


fa  CJ  U  fa 

O 

O 

O' 


Q 
55 
W  CO 


CQ  W 
£3  EH 


£3 

fa 

t: 

o 

o 


— .  O 
O  CTi 

cr>  - 

- T“ 

a  li  o 

V  H  • 

fa  O 
O  II 
fa  in  ^ 
<C  H 
WWO'H 
e  «  Q  a 
«aj 

fa  o 

«3J  CO 

fa 


VO 

w  I 

CO  w 

o  o 


I 

fa 

fa 

w 

EH 


O 

t 

1 — 

II 

T-^  CM 

w  II 
a  m 


< 

CM  s- 

I 

w 

Ov  u 
CM  wr- 
CO  *  • 

no  fa  H 
C3-  w  fa 
(""fa  • 

.  X  Q 
T-  W 

It 


II 


Q 

II 


Pm 


Q  H  a 

O 

O 


+ 

H 

II 

H 


U  O 


CO 

w  o> 

a 

fa 

33 

fa 

eh  a 

co 

Q 

% 

o 

* 

o  — . 

O 

fa 

Q 

fa  o 

CO 

fa 

<C  VO 

O  CM 

33 

33 

CO 

eh  1 

EH 

EH 

fa 

o  w 

ad 

O 

CO 

CD  O' 

co 

O 

fa  »> 

_CM 

S3 

o 

o  co 

w 

CO 

H  O 

cr>  in 

fa 

EH  vO 

•  =r 

H 

fa 

U  n> 

eh  r- 

O 

Eh 

33 

fa 

CD  • 

O 

fa 

D 

EH 

£3  fa 

• 

i 

T— 

fa 

O 

fa 

H  ♦ 

O 

i 

£3 

fa 

CO 

*-3 

^3 

Eh 

H 

Eh 

Q  CQ 

fa 

X  *C 

fa  II 

O 

II 

fa 

fa  D 

EH 

Eh  fa 

H  <C 

CD 

H 

fa 

fa  CO 

£3 

H  fa 

fa 

CO 

O 

ad 

fa 

O 

o 

W 

CO 

CJ 

Q 

u 

U 

-  .  I 


352 


oooooooooooooooooooo 
cr.O'r-(Njrri^rLn^or'Ooahor-cNjro^Lnvotv'  oo 
Orr-r-r-rrT-rrT'(NM(N(NCSMfs)(s)(\| 

rrrrrrrrrrrrrrrrrr-rt- 

WWWWWWWPtfpqWPiSPilWWPiqwWWWW 
tntnv)i/)vno(ow(owv)(/iwvHowwwtow 
- oooooooooooooooooo 


o  o 
os 


ososososesasososasesojososasosososo: 


OS 


o 

v£ 

ro 

♦ 

t— 

US 

II 

r- 

us 


O  <N 
sD  tic: 
ft)  W 

I  Pm 
CN  4- 
US  — . 

II  *“ 
04  US 
US  '■— 
^  Pm 
O  w 
vO  * 
m 


o 

• 

o 
li 

en  n 


*  h  6^  + 

#  h3  o  i-l 

_  tJ  •  ^  •  w 

US  I  r  +  (N  s 

w  us  us  us  us  + 

Pm  *-  II  w  II  w  O 

|t  ||  r~  0m  CM  Pm  II 


O 

O 

04 

O 

H 

O 


o 

o 

r~ 

O 

H 

O 

e> 


WtdU^USH^HU 


■f 

•J 

II 


O 

O 

* 

CD  W 
— .  5? 

SB  • 

SB 

«  r- 

0  4-  U 

W*SIU  + 
.  II  05 
t-4  DC  CO 

^^us  ii 
Cm  Pm  wOS 
H  h  tn  w 


o 

ao 

o 

H 

O  O 
o  vo 
^  CO  PS 

o 

VO 
00 
• 
p^ 
m3 


CO 
r-  \ 
II 

H  H 


O 
LD 
4  US  04 
US 

II  Pm  O 
US  H  Q 


CO 

II 


SB 
OS 
D 

H  H  Q 
2 

to  OS  w 


o  o 
00  o 


o 

© 

04 


o 

to 

04 


' 


c 


start 


read 

parameter 

cards 


initialize 

plot 


C 


stop 


EOF 

terminate 

plot 

Flow  Diagram  for  Program  ROSE 


Identification 


Program  name: 

SAMPLEGEN 
Program  title: 

Simulated  samples  from  Fisher,  great  circle  and  uniform 
distributions. 

Author : 

John  Famsden 

Organization: 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date : 

1  October  1974 
Program  version  number: 

1 


Application 


Purpose : 

To  generate  simulated  random  samples  from  Fisher, 
great-circle 'and  uniform  distributions  on  the  sphere. 

Method : 

_  Fisher  and  great-circle  distributions,  plunges 

‘ “  ?  r  ss; 


' 
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from  a  uniform  distribution  on  (0,2  ). 

Data  restrictions: 

Maximum  size  of  samples  is  10C0  points.  For  the  Fisher 
distribution,  the  concentration  parameter  must  not  exceed 

174. 

Timing : 

0.98  seconds  of  CPU  time  were  required  to  generate  5 
samples  of  100  points  each  from  a  Fisher  distribution  with 
parameter  of  100. 


Implementation 


Original  installation: 

University  of  Alberta  Computing  Services. 

IBM  360  model  67  (1024K) . 

card,  disc,  tape,  typewriter  terminals  and 
display  terminals. 

Michigan  Terminal  System  (MTS) ,  a  virtual- 
storage  time-sharing  system. 

Source  language: 

FOBTBAN  IV 

Subroutines  required: 

Bequires  system  function  subprogram  UBAND. 


Organization : 
Computer : 

I/O  devices: 

Software : 


Size : 

Size  of  user-supplied  program  =  14000  bytes.  Size  of 
system  routine  =  88  bytes.  Total  size  =  14088  bytes. 

Requirements  for  I/O  devices: 


356 


I/O 

unit 

no . 

read/ 

write 

Maximum  FORTRAN 
record  length 

device 

control 

statements 

suggested 

device 

1 

write 

12128  unformatted 

none 

tape,  disc 

5 

read 

16  formatted 

none 

card  reader 

6 

write 

49  formatted 

none 

line  printer 

7 

write 

7  formatted 

none 

disc 

Usage 

Input: 


I/O  unit  5:  parameters. 


One  card 
ccl 

1 

2-5 

6-9 

10-13 

14-16 


containing 

contents 

1  for  Fisher,  2  for  great  circle,  3  for 
uniform. 

number  of  points  in  sample,  right- justified 
integer. 

distribution  parameter,  right- j ustified 

integer  or  real. 

distribution  parameter  repeated,  read  as 
characters. 

number  of  samples,  right- justified  integer. 


Output : 


I/O  unit  1:  generated  samples. 


One  unformatted  record 
consisting  of  4  bytes  containin 
sample  as  a  fullword  integer, 
title,  4  bytes  containing  the  n 
the  record,  and  from  12  to 
direction  cosines  of  the  dat 
numbers  in  the  sequence  al,  bl, 


for  each  sample  generated 
g  the  number  of  points  in  the 
120  bytes  containing  the 
umber  of  direction  cosines  in 
12000  bytes  containing  the 
a  points  as  one-word  real 
g 1 ,  a2,  b2 ,  g2,  .  .  . 


I/O  unit 
I/O  unit 
One 


6:  messages. 

7:  heading, 
record  containing 


the  distribution  parameter  and 


■ 
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sample  size  (for  use  by  other  programs)  . 


. 

. 


. 


r 

■ 


358 


oooooooooooooooooooooooooooooooooooo 

r-('j('i^ui,.o(vcccnor-om4'ir)^i^'aoa>or-('4(')d-iDvcir^cDa'Or-c3fr)4in^o 

I —  f —  . —  t —  . —  f-  \ —  <t~  1 —  CM  CM  <N  CM  CM  CM  CM  CM  CN  CM  CO  CO  CO  CO  CO  <0  CO 

CDCDCDCDCDtDCDCDCDtDCDCDOCDCDCDCDOCDOCDCDacDOCDCDCDCDCpcpCDcpCDCDCD 

cuo4  04  04  04  0»cu0404040tOL»04Cuo40404Cucucu04  04  04  04  04  04  a4Cu040404  04  04CMa404 

aaasaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

i/iwvHrtwviwwt/itntrti/Hni/ii/HnvH/iwinwtnviwviwwt/ivH/iiowintnt/it/j 


CD 

a. 

2 

CO 


2 

cq 

CD 

w 

►Q 

Oi 

sc 

*33 

CO 


w 

se 

2: 


cq 

OS  CD 
O  cd 
2  2 
u 

**3 

O. 


o 

as 

cu 

o 


w 

»-3 
CQ 
•S3 

as  e-< 

O  M 

o 

^  CO  O 

w 

►-3  E  CQ 
Q  M  ® 
WO  EH 
M  2 
CD  2 
<<  H 


* 

X 

as  2 

CO 

OS 

CQ  H 

a 

*33 

23 

*aj 

OS 

CO  PQ 

OS 

CQ 

H  as 

CD 

W 

Cm  CQ 

O 

2 

23 

OS 

a  04 

CU 

O  to 

a 

as 

OS 

o 

a*  pq 

CQ 

as 

23 

a 

Cm 

10  EH 

EH 

CQ 

O 

Q 

*_l  23 

2 

CQ 

CM  O 

X 

*33 

2 

a 

CQ 

as 

CU 

*33  CO 

23 

a 

CO  2 

CD 

*33 

O 

2 

a 

CO 

a  h 

H 

*33 

O  EH 

CO 

•  •  OS 

•  •  Q 

CO 

O  23 

CO 

Q  CD 

O  CQ 

OS 

SC  CQ 
<  H 
ai  as 
Eh 
2  CO 
H  H 
<3  Q  W 

as  eh 
2  sc  *A 
2  as  h 


220 
cj  as  as 
o  h  o< 
as  d  w 
a  a  o 
2  to 
as 

2s 
CO  O 
CQ  H 


W  EH  W  CD 
u  rfj  H  2S 
23  2  CQ  H 
PQ  2  E  Q 
«  2  *33  *aj 

w  H  as  CQ 
2  CO  <d  2 


CQ 

as 


CQ  O  o  Ss  EH  CO 


23 


a 

•  • 

CD 

Cm 

CQ 

H 

CJ 

Eh 

O 

*£ 

CQ 

H 

a 

EH 

2 

H 

os 

CO 

o 

2 

a 

2? 

23 

2 

•  • 

CD 

o 

EH 

2D 

H 

O 

Cm 

23 

T~~ 

o 

04 

OS 

OS 

as 

PQ 

O 

04 

2D 

CD 

\ 

04 

CO 

2 

(J 

L) 

u 

U 

U 

U 

CJ 

U 

u 

CU 

•  • 

•  •  £H 

2S  2 

M  O 


in  r~ 


3 C 

o 

as 

Cm 


a 

o 

as 

Cm 


£3 

o 

as 

Cm 


CQ 

CQ 

CQ 

2 

OI 

►Q 

04 

CM 

CU 

-  \ 

-  V 

-  V 

**  • 

% 

• 

m 

m 

a 

a 

a 

<3 

*33 

*#3 

CO 

CO 

CO 

«» 

w* 

«a* 

-  # 

-  * 

- 

*»  r- 

*  r- 

^  r- 

•  r- 

•  T“ 

a  «. 

a  *■ 

a  - 

O  * 

o  - 

c  - 

Q  II 

O  II 

Q 

2  03 

2  OS 

2 

•» 

m 

V 

«*  2 

■CJ  *> 

* 

* 

OS  • 

os  - 

OS  - 

2 

2 

O 

Q  O 

Q  O 

Ci  M 

*  H 

-  H 

-  EH 

**  Eh 

*  Eh 

*.  2 

CQ  * 

CQ  * 

CQ  *■ 

Eh  - 

Eh  - 

H  • 

*3!  23 

*a3  2 

*33  (3Q 

►Q  CQ 

►Q  03 

*J  W 

-  H 

-  H 

-  OS 

2 

*.  « 

«*  EH 

23  -  23  *•  D  *■ 

a  •  a  -  a  * 

H  IH  H  Eh  EH  CO 
CO  CO  CO  CO  CO  H 

*  2  »  H  *  D 

v  Q  V  o  V 


a 

*3| 

CO 

2s 

* 

OS 

<c 

a 

u 


as 

*33 

a 


2 

X 

a 

2 

* _ . 

_ _ _ 

2 

a-  — . 

CQ 

o 

V 

m  m 

2 

o 

CQ 

-  H 

h4 

o 

2 

m 

2  Eh 

ro 

OI 

II  =* 

K  2 

' — - 

2 

2  *C 

^  *35 

O 

_ _ _ 

.  *.  a 

m  eh 

O 

O 

\  O  *33 

o  to 

* 

o  a 

r-  .CO 

c*  2 

o  *■  o 

co  -  (o  * 


o  •* 

pi  - 

■*-*  — -  ■ — a 

r-  os  CM  CQ  CO  OS 
QWQQQO 
H  a  H  Q  H  Cm 


u  co 

»  CM 
\  00 
o  «~ 
\r*  OS 
tSJ  •  CQ 


Q 

as 

*33 

u 


r- 

II 

a 

2 

CQ 

«. 

o 


2  •  =r  2 
2  in 
»■  Cm 

fats  - 

X  - 

II 

T-  2 


-  o 


CM  Eh  at 

as  «.  as  ‘•as  *»  as  \  2  vi^  ^ 
as*  as*  cq  *  cq  cq  a  to  s  *"  eh 

CD  CO  CD  «  CD  H  CD  *a}  2  »«S 

HWaWQWQEHE 

CDEHOEH*33«*3'<HaS 

23  2  CQ  CU  PQ  as  o 

H  *  H  -  H  OS  OS  3*  Cm 

to  #  Q 

*03  O  r~ 
CQ  T~ 

05 


CQ 

H 

2 


H  CQ 
Oh  EH 
2 


Pm 

o 

O 

a 

r~ 

T— 

2 

ii 

CM 

a 

a 

2 

2 

M 

a 

* 

2 

*33 

*3? 

% 

*a3 

o 

<t3 

2 

2 

T~ 

T“ 

CO 

r~ 

U 

in 

U 

li 

H 

H 

f— 

W 

2 

II 

o 

II 

M 

i-3 

X 

it 

. _ . 

EH  m 

Eh 

* 

c3" 

O 

*33 

CM 

O 

H 

* 

r* 

o 

i— 

vD 

a 

'n 

EH 

E*< 

CQ 

•s— ^ 

EH 

in 

03 

II 

r- 

CM 

O 

o 

O 

O 

04 

2 

Q 

O 

Q 

II 

o 

2 

o 

CD 

2 

CQ 

H 

CD 

M 

2 

Q 

O 

O 

EH  O 

O 

o 

o 

in 

o 

ro 

O 

CQ 

CN 

o 

r- 

o 

r~ 

r* 

CO 

r" 

r- 

CM 

CM 

CSJ 

o 
2 
m  «£. 
♦  as 

fas  23 

II  II 


m  o 

T~  CM 

zr  & 


u 


(J 


o 


f 


' 

' 


359 


oooooooo 
f-  00  03  o  r-  <N  ro  st 
CO  oo  ro  st  st  st  st  st 

00000000 
a  CU  CM  &  &  Qj  Qi  Clt 

eeeeeeee 

WWVHOVIIOWIO 


00  000000 
in  tO  r~  CD  Ot  O  r~  CN 

oooooooo 

aaaaaaaa 

EEEEEEEE 

cococncntncncncn 


oooooooo 

r'l^Lfi'Xir'^T'O 

lD  lT)  in  in  in  in  lD  tO 

OOOOOOOO 

aaaaaaaa 

SECS  E  E  E  E 
cncncncncncniocn 


0 

0 

O 

0 

0 

0 

0 

0 

<t— 

CN 

ro 

St 

CO 

to 

r~ 

CO 

vO 

tD 

to 

to 

to 

to 

to 

to 

O 

O 

0 

0 

0 

0 

in 

0 

CM 

O4 

CM 

CM 

CM 

CM 

CM 

CM 

a 

E 

E 

E 

e 

a 

so 

e 

co 

CO 

CO 

co 

CO 

CO 

to 

CO 

st  CO 

.  w 
V  a 
H 

W  CO 


a 

•» 

U 

a 

a 

0 

II 

0 

0 

H 

a 

a 

w 

H 

EH 

co 

O 

EH 

H 

a 

» 

w 

a 

a 

a 

EH 

CQ 

03 

H 

U 

M 

H 

06 

X 

W 

03 

03 

EH 

in 

a 

EH 

CO 

H 

CO 

CO 

H 

sr 

a 

M 

H 

a 

H 

a 

a 

V 

a 

E 

m  «* 

a 

03 

w 

06 

*  - 

*d 

w 

1-4 

M3 

O 

*  II 

a 

a 

X 

Cm 

a  *  m 

W 

co 

03 

\ 

H 

co  * 

a 

H 

N5 

H 

, _ . 

a 

*.  *  » 

a 

Cm 

X 

0 

a 

H  O 

w 

W 

\ 

M3 

^  a  t- 

a 

a  a 

e 

X 

E 

T-  H  A 

EH 

a  0 

S' 

0 

— 

0 

<r>  a  a 

M3  03 

w 

03 

a 

03 

St  «  CO 

»■  Cm 

\ 

Cm 

Cm 

*•  <0 

w 

03 

EH 

VO  CK  1 

0 

o'  W 

+ 

W 

«3 

W 

—  * 

a 

00  cn 

a 

cn 

* 

cn 

W  -H-  03 

a 

st  a 

W 

a 

„ _ . 

a 

W 

£h  *  O 

»-4 

v  £3 

# 

a 

03 

a 

O 

H  *  03 

a 

O  f4 

* 

a 

a 

03  *  03 

a 

VO  CM 

03 

a 

• 

CM 

a 

5*  -  W 

St 

I 

CN 

a 

0 

*.  Cm 

0 

Cm 

I 

Cm 

a 

•  X  sc 

w 

O  O 

O 

• 

C 

p 

V"  ,T" 

st 

—  0 

t— 

O 

X-  0.4 

0  \  « 

a 

st  a 

ov  a 

■ — - 

cn  a 

•  0 

W  \  O  H 

—  H 

CD 

st  H 

~ — - 

st  M 

• 

O  w  O 

co 

O 


CO 


W 
FH 
O  <3 
O  06 
W 
O  a 
ro  W 

st  O 
U 


o 

1-4 
<3 
II 

CU  O 
CO  o 


o 

£H 


o  o 

st  LD 
st  st 


CO  55 
<C 
W  E-< 
EH  II 

*sj  CM 

CM  CO 
W 

SB  O 
W  CD 
O  st 

U 


CO 

O 

&h  w 


o 

O 

o 

r- 

st 


Eh 

< 

06 

w 

a 

w 

o 

u 


csi  a 
■M  H 
a  CO 

II 

CM  X 
CO  Cm 
H 
O  03 
CD  W 
st  t> 


CU  <c 

co  a 

—  03 
Cm  o 
H  a 

O  r- 
o>  O 
st  =t 


U 


03  O 
CM  U 

W 
X  E-* 
t-  3 
*  CM 
E 
O 
u 

o 


a. 

co 

# 

CM 

CO 

I 

•  * — 
«-  03 

EH  Q 

03  a 
o» 

CO  « 

II  a 
CM  II 
U  06 


CM  CM 

u  u 
* 

Eh  H 
CD  —  — 

cd  co  a 

T-  O  M 
co  U  to 
II  II  CM 
CO 

CN  t-  |l 

I  I 

a  a  a 


CO 

(N 

* 

vO 

* 

03 

II 

H 


a 
a 
H 
Eh 
■  a 

u  u  o  o 

D  Q  Q  U 


OOOOOOOH 
O  r-  (N  CO  st  in  vO 
tn  in  in  m  m  in  in 

U 


a 

a 

u: 

r~ 

%» 

T— 

II 

T~ 

II 

W 

It 

H 

w 

H 

W 

H 

a 

M 

■— 

H 

a 

. — . 

U 

a 

U 

a 

U 

a 

' — ' 

Q 

S^' 

0 

*> 

a 

CN 

a 

v 

a 

to 

CN 

w 

•> 

x~~ 

a 

ro 

O 

a 

M 

a 

O 

H 

k 

H 

to 

w 

E 

w 

E 

a 

E 

0 

a 

a 

a 

00 

a 

m 

in 

a 

w  un 

^ , 

CN 

T— 

CN 

, _ . 

W 

O 

a  w 

t— 

to 

tO 

t- 

a 

V 

a 

* — 

•— 

a 

E  O 

w 

0 

w 

O 

w 

H 

O 

*03  EH 

EH 

Eh 

EH 

EH 

EH 

EH 

EH 

CO 

H 

H 

M 

a 

0 

a 

O 

06 

0 

a 

0 

O 

W  CJ3 

a 

cn 

3t 

cn 

c* 

u 

tn 

EH 

H  O 

0  0 

O 

0 

0 

in 

0 

a  r~- 

CD 

03 

O 

r- 

CN 

(N 

ro 

*  m 

tn 

tn 

tO 

tO 

vO 

tO 

vo 

CM 

o  a 
EH  K 


o 

o 

o 


. 

Flow  Diagram  for  Program  SAMPLFOFM 


361 


Identification 

Program  name: 

TRVLST2 

Program  title: 

Areal-analysis  package  -  traverse  list  for  subset  of 
data  file. 

Author : 

John  Ramsden 

Organization : 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date : 

1  October  1514 
Program  version  number: 

2 


Appl icat ion 


Purpose : 

To  generate  a  traverse  file  for  a  subset  of  a  data 

file. 

Method : 

The  program  reads  traverse  data  from  a  traverse  file. 
By  simultaneously  reading  the  data  file,  the  program  obtains 
the  range  of  line  numbers  in  the  data  file  that  correspond 
to  observations  cn  each  traverse.  A  new  traverse  file  is 
produced  containing  this  information. 

Data  restrictions: 

None . 

Timing : 


s 
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The  program  required  1.3  seconds  of  CPU  time  to  process 
a  data  file  containing  297  observations  on  43  traverses.  The 
program  took  1.4  seconds  of  CPU  time  to  process  a  data  file 
containing  297  observations  on  43  traverses. 


Implementation 


Original  installation: 


Organization: 
Computer : 

I/O  devices: 

Software : 


University  of  Alberta  Computing  Services. 

I  EM  360  model  67  (1024K). 

card,  disc,  tape,  typewriter  terminals  and 
display  terminals. 

Michigan  Terminal  System  (MTS) ,  a  virtual- 
storage  time-sharing  system. 


Source  language: 
FORTRAN  IV 


Subroutines  required: 


None , 


Size  : 

2464  bytes.  2464  bytes. 


Requirements  for  I/O 


devices : 


I/O  read/ 
unit  write 
no . 


Maximum  FORTRAN 
record  length 
(bytes) 


device  suggested 

control  device 

statements  . 


read 

808  unfcrm 

atted  none 

tape;  disc 

read 

determined 

by 

format 

none 

tape;  disc; 
card  reader 

write 

determined 

by 

format 

none 

tape;  disc; 
card  punch. 
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Usage 


Input : 

I/O  unit  1:  traverse  identification  from  data  file. 

As  written  by  program  INPUT1  or  INPUTK1. 

I/O  unit  4:  traverse  list. 

Identical  records,  cne  for  each  traverse.  Variables 
read  are:  1  dcuble-word  variable  which  must  contain  a  1-  to 
8-character  identification  for  the  traverse,  followed  by  11 
single-word  variables  which  may  contain  any  other 
information  about  the  traverse. 

I/O  unit  5:  formats  for  reading  and  writing  the  traverse 
files . 

Two  records,  one  format  in  each  record,  each  format  in 
columns  3  to  102. 

Output: 

I/O  unit  8:  new  traverse  file. 

Same  variables  as  read  on  unit  4  preceded  by  4  fullword 
integer  variables  containing  (1)  sequence  number  of  traverse 
in  input  traverse  file,  (2)  data-file  line  number  of  first 
observation  on  this  traverse,  (3)  data-file  line  number  of 
last  observation  on  this  traverse,  (4)  number  of 
observations  on  this  traverse. 


pr 


c 

c 

C  AREAL-ANALYSIS  PACKAGE  -  PROGRAM  "TRVLST2". 

C 

C 

REALMS  ID, DUE  (101)  ,TRDATA  (11) 

REAL  ntJF2(200) 

LOGICAL*1  END 

INTEGER  +  2  L I  NT  Y  P, DEE/ ' D '/ 

INTEGER  TITLE (30) ,DL/'  '// FMT  (25)  , FMT2  (25) 

EQII I  VALENCE  (BUE2,  BUF  (2)  ) 

INTEGER  APP  (6)  /'  TR  •  ,  •  A  VE  R  •  ,  •  SES  '/ 

C 

2  FORMAT  ('  T'  ,  30A4) 

3  FORMAT  (A  1 ,  A  3,  14) 

7  FORMAT  (2  X  ,  2  5  A4 ) 

5  FORMAT  (II) 

601  FORMAT  (IX,  AB) 

C 

RE  A  D  (5 , 7  )  FMT,  FMT2 
C 

530  END=. FALSE. 

C 

C - READ  &  WRITE  TITLE 

C 

READ  (1)  NN, NV,NO,NPHR,TITLE 
DO  20  1=1,6 
20  TITLE  (1+10) =APP (I) 

WP  ITE  (8,2)  TITLE 
WRITE  (6,2)  TITLE 
C 

c _ INITIALIZE  TRAVERSE  NUMBER,  LINENUMBER  AND  BUFFER  POINTER 

C 

ITR  AV  =  0 
LN  R  =  1 
I BU  F  =  2 
C 

C - READ  FIRST  DATA  BLOCK  INTO  BUFFER 

C 

READ  (1)  N,  IE,  (BUF 2  (I)  ,  1  =  1 ,  IE) 

C 

c - STORE  LINENUMBER  AND  INITIALIZE 

C - NUMBER  OF  OBSERVATIONS 

C 

6  0  L 1  =  L  N  R 

NO  13  S=  1 
C 

C _ GUT  TRAV  INFO  FROM  TRAVERSE  FILE 

C 

80  REA D (4 , FMT, END=450) ID, TRDATA 
ITRAV=ITRAV+1 
IF  (ID.NE.BUF  (IBUF) ) GOTO80 
C 

c - INCREMENT  COUNTERS 

C 

100  IBU  F= IBUF+ 1 
LNR=LNR+  1 
NOB  S  =  NOBS ♦ 1 
IF(LNR.GT.NO) GOTO 500 


TRVL 

10 

TRVL 

20 

TRVL 

30 

TRVL 

40 

TRVL 

50 

TRVL 

60 

TRVL 

70 

TRVL 

80 

TRVL 

90 

TRVL 

10C 

TRVL 

110 

TRVL 

120 

TRVL 

130 

TRVL 

140 

TRVL 

150 

TRVL 

160 

TRVL 

170 

TRVL 

180 

TRVL 

190 

TRVL 

200 

TRVL 

210 

TRVL 

220 

TRVL 

23  0 

TRVL 

240 

TRVL 

250 

TRVL 

260 

TRVL 

270 

TRVL 

28  0 

TRVL 

290 

TRVL 

300 

TRVL 

310 

TRVL 

320 

TRVL 

330 

TRVL 

34  0 

TRVL 

350 

TRVL 

360 

TRVL 

370 

TRVL 

380 

T  R  V  [. 

39  0 

TRVL 

40  0 

T  R  V  I. 

410 

TRVL 

420 

TRVL 

430 

TRVL 

440 

TRVL 

450 

TRVL 

46  0 

TRVL 

470 

TRVL 

480 

TRVL 

490 

TRVL 

500 

TRVL  510 
TRVL  520 
TRVL  530 
TRVL  540 
TRVL  550 
TRVL  560 
TRVL  570 
TRVL  580 
TRVL  590 


' 
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IF (IBUF.LE.  101) GOTO400 
ntJF  (1)  =  B U  V  (101) 

I B  U  F  =  2 

PF.AD(I)  N,IE,  (BUF2(I)  ,1  =  1,  IE) 

400  IF  (BUF  (IBiJF)  .EQ.BUF(IBUF-I))  GOTO  100 
GOTO BOO 
500  END-. TRUE. 

- WRITE  TRAVERSE  DATA 

600  CONTINUE 

300  WR ITE (8, FMT2)  ITRAV , Li , LNR, NOBS, ID, TRDATA 
IF  (END) STOP99 
GOTO60 

420  STOP 
430  STOP  12 
440  STOP  11 
450  STOP  10 
END 
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END-*  false 
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Identification 

Program  name: 

WNDPLT3 

Program  title: 

Areal-analysis  package  -  line-printer  orientation 
diagram. 

Author : 

John  Bamsden 

Organization : 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date : 

1  October  1974 
Program  version  number: 

3 


Appl icat ion 


Purpose : 


For  weighted,  non-directed  orientations,  to  produce  on 
the  line-printer  equal-area  projections  of  point  density 
having  a  high  density  of  counting  locations. 

Method : 


The  plane  of  the  projection  is  hori 
parameter  card  is  given  redefining  the  pr 
this  case  the  directions  are  rotated  befor 
The  program  uses  a  1  per  cent  counting 
interval  of  1  per  cent,  and  the  follovi 
represent  successive  contour  intervals  0-1 
cent,  and  so  on  "  1234567890abcdef ghi jklmn 
Any  of  these  defaults  may  be  overrid 
parameter  cards. 


zontal,  unless  a 
ejection  plane.  In 
e  being  plotted. 

circle,  a  contour 
ng  characters  to 
per  cent,  1-2  per 
cpgr stuvwxyz**** " , 
den  by  appropriate 


.  i  nt 


.rsipt 


: 3  or :ruA 
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O  *toiq 
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Identification 

Program  name: 

WNDPLT3 

Program  title: 

Areal-analysis  package  -  line-printer  orientation 
diagram. 

Author : 

John  Bamsden 

Organization : 

Department  of  Geology,  University  of  Alberta,  Edmonton, 
Alberta,  Canada 

Date : 

1  October  1974 
Program  version  number: 

3 


Appl icat ion 


Purpose : 


For  weighted,  non-directed  orientations,  to  produce  on 
the  line-printer  egual-area  projections  of  point  density 
having  a  high  density  of  counting  locations. 

Method : 


The 
para  mete 
this  cas 
The  pro 
inte  rval 
represen 
cent,  an 
Any  of 
paramete 


plane  of  the  projection  is  hori 
r  card  is  given  redefining  the  pr 
e  the  directions  are  rotated  befor 
gram  uses  a  1  per  cent  counting 
of  1  per  cent,  and  the  follovi 
t  successive  contour  intervals  0-1 
d  so  on  "  1234567890abcdef ghi jklmn 
these  defaults  may  be  overrid 
r  cards. 


zontal,  unless  a 
ejection  plane.  In 
e  being  plotted. 

circle,  a  contour 
ng  characters  to 
per  cent,  1-2  per 
cpgrstuvwxyz**** " . 
den  by  appropriate 


■  i  ..  li'  ' 

.  (:•  f  ,A  :  i-  j 


16-5  6 Jpt 


r.  it  .  •  •  • 
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The  input  data  must  include  weights.  Unless  otherwise 
directed,  the  pregram  uses  these  weights  in  the 
computations.  A  parameter  card  may  be  used  to  specify  that 
the  weights  are  to  be  truncated  at  seme  specified  upper 
limit,  or  that  the  weights  are  to  be  set  equal  to  1. 

Data  restrictions: 

None . 

Timing : 

t=4+ 1 . 2s+0 . C06p ;  t=CPU  time  in  seconds;  s=number  of 
samples  (number  of  plots  produced)  ;  p=tctal  number  of  data 
points  in  all  samples. 


Implementation 


Original  installation: 


Organization : 
Computer : 

I/O  devices: 

Soft  ware : 


University  of  Alberta  Computing  Services. 

I  EM  360  model  67  (1024K). 

card,  disc,  tape,  typewriter  terminals  and 
display  terminals. 

Michigan  Terminal  System  (MTS) ,  a  virtual- 
storage  time-sharing  system. 


Source  language: 

FORTRAN  IV 

Subroutines  and  function  subprograms  required: 

The  following  subroutines  from  JR  subroutine  library: 
DC  AN  RCTMAT  VRM1 .  The  following  subreutines  from  SSP 
subroutine  library:  GMPRD  GTPRD. 

Size : 

Total  size  of  program  including  all  required 
subreutines  is  52752  bytes. 

Requirements  for  I/O  devices: 


8  3-IflU 

:  .  y  h  V 

' 

not 


v  •*  n  Ode  : 


:  n  f  rr  t  p  r 


r  h '•  .  v  ;'i  -  •  ' 


3t>9 


I/O 

read/ 

Maximum  FORTRAN 

device 

suggested 

unit 

write 

record  length 

control 

device 

no . 

(bytes) 

statements 

1 

read 

1608  unformatted 

none 

tape;  disc. 

3 

read 

80  formatted 

none 

disc;  card. 

4 

read 

determined  by 
given  format 

none 

disc;  card. 

5 

read 

80  formatted 

none 

disc;  card. 

6 

write 

42  formatted 

none 

line  printer 

8 

write 

84  formatted 

none 

line  printer 

9 

write 

127  formatted 

none 

line  printer 

Usage 

Inpu 

t : 

I/O 

unit  1 : 

data 

As  written  by  program 

INPUT,  INPU 

TK,  or  DSPDATA.  As 

many 

samples  as  desired.  One 

plot  will  be 

produced  for  each 

sa  irp 

le. 

I/O 

unit  3: 

direction  cosines 

of  counting 

locations 

These 

are  contained  in  a 

deck  of  314 

cards  in  EBCDIC. 

I/O 

unit  4: 

normal  to  projection  plane 

The  contents  and  format  of  the  single  record  that  may 


be  read 

from  this 

unit  are  deter mi: 

card . 

I/O  unit 

5:  parameters 

All 

paramete 

r  cards  are 

optio 

default 

values . 

The  readi 

ng  of 

terminated  by  a 

blank  re 

cord 

paramete 

r  record 

must  be 

suppl 

which  a 

value  is 

to  be  speci 

f  ied. 

defaults 

ar  e : 

(1)  Nor 

mal  to 

pro  ject ion 

plane 

format : 

ccl 

contents 

0  ne 


Default:  vertical.  Card 


II  C  II 


1  . 

2-11  trend  or  first  direction  cosine 

12-21  plunge  or  second  direction  cosine 


■  :) 

■:  r.  o 

b  .  . 

P  ■>  V 

d  ‘  -V'  -  X  -II  in  t  «■  -  :  | 


nt  \ -lift) 
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22-31 

32-40 


41-80 


blank  or  third  direction  cosine 

code:  +-1.0  if  trend  and  plunge  given  in  degrees 

♦  -2.0  if  trend  and  plunge  given  in  radians 

♦  -3.0  if  direction  cosines  given 

code>0  if  information  is  on  parameter  card 
code<0  if  information  to  be  read  on  unit  4 
format  for  reading  unit  4  if  required 


(2)  Size  of  counting  circle.  Default:  1%.  Card  format: 
col  contents 

1  "S" 

2-11  per  cent  size  of  circle 


(3)  Contour  interval.  Default:  1%.  Card  format: 

col  contents 

1  "I" 

2-11  contour  interval 

(4)  Plot  characters. 

Default:  "  123456789ABCDEFGHIJKLMNOPQRSTUV WXYZ****" . 

Card  format: 
col  contents 

1  "C" 

41-80  plot  characters 

(5)  Weighting  procedure.  Default:  weights  used  as  read.  Card 
format : 

col  contents 

1  "  W  " 

2-11  value 

Action : 

If  value=0  all  weights  will  be  set  to  1.0  before  data  is 
processed. 

If  value>0  weights  greater  than  "value"  will 
be  set  equal  to  "value".  Weights  less  than  or 
equal  to  "value"  will  not  be  changed. 

If  value<0  the  default  action  will  remain  if  effect. 


(6)  Printout.  Default:  overprinting  and  list 

of  character  values.  Card  format: 

ccl 

contents 

1  "0" 

Action:  Overprinting  and  list  of  character  values 

suppressed. 

Output : 

I/O  unit  6:  messages 

Error  messages  are  self-explanatory. 


I/O  unit  8:  plot 


.  0  ♦  -  .o  * 

»t  i  ai  aoiftsi..  :ni  ± £  0<olo:> 
i»  i  .  i  cr- ;  ?•  *h1  oi  c  i  is  zo  az  M  Q>9borj 

i  x  t  ?  cr l*  (•  r  \  •  o  08-f 

aitaiiios  lo 

;  -  I  *.  i  ,  3  'i  i  .  rfgj  bin 


or' 

. 

•  a  '  • 
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Preceding  the  plot,  5  records  containing:  (1)  the  first 
80  characters  of  the  title,  (2)  the  remainder  of  the  title, 
(3)  number  of  data  points  and  total  weight,  (4)  size  of 
counting  circle,  and  (5)  contour  interval  and  characters. 
The  plot  consists  of  49  lines  each  containing  82  characters, 
the  first  character  in  each  line  being  a  carriage-control 
character. 

I/O  unit  9:  title  of  each  sample 

On  this  unit  the  program  writes  the  number  of  data 
points  and  the  title  for  each  sample  as  it  is  read. 


on  no  nnnnn 
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AHEM.  -ANALYST:;  PACKAGE  -  PROGRAM  "WN0PLT3". 


Hi:  A  I,  CONTI  (  10)  ,  l-'MT  (IS)  ,  COUNT  (3711)  ,  M  PLRC, DC  (1,100),W(100),DCR(3, 

♦  10  0) 

I  NT  OH!  F,  R*  2  ALOC  (1713),  BLOC  (3713)  ,  CLOG  (3713) 

INTEGER  TITLE  {  30) 

LOGICAL*  1  CHAR  (NO)  ,CIIA  R 1  ( 4  0)  ,  AL  PH  A  (  4  0) 

REAL* 3  CM A  (5) /•  1234567' , ' 89 A  BC  DEF  ' , ' GH IJ  KLMN ' , '  OPQRSTU V ' , 
*'WXYZ****' / 

EQUIVALENCE  (CHARI, CMA) 

LOGICAL* 1  ROTAT/. FALSE ./, DOTH/. FALSE./ 

REAL  PEE/'  P'/,  ESS/'  S' /.EYE/'  I'/,SEA/'C'/,BLANK/'  '/,KEW/'Q'/ 

*  ,  X  (4)  ,EM  (9)  , D  U  B/ ' W ' / , O  W  E/ ' O ' / 
cor  MON/ON E/FMT, CONTI, COUNT.CHAR , ICODE1 

COM  MO N/T WO/SWT, NT, SIZE, RC , CRC, CRCC , M PLRC, ALOC , BLOC , GLOC 


1  FORMAT  (A  1 , 3F10 . 0, F9 .0, 40A 1) 

2  FORMAT  (/I  X,  ' I NVALID  PARAMETER  C A R D • / 1 X , A 1 , 4 F 1 0 . 4/ 
*1X,  ""  ,A1  ,  '  "  IS  INVALID') 

3  FORMAT (/IX, • INVALID  PARAMETER  C A RD • / 1 X , Al , 4 F 1 0 . 4/ 
*1X,  ""  ,F10. 4, IS  INVALID') 

4  FORMAT  (40A1) 

5  FORMAT (IX, 15, 4F1 0.4) 

6  FORMAT  (II) 

7  FORMAT ( IX, IS, 1 X, 30A4) 


ICO DE 1=1 
DO  H  1=1,40 
8  CHAR  (I)  -CHARI  (I) 

SI  7  E  =  1 . 0 
CO  N  T  I  (  1 )  -1.0 
W  E  T  G 11 T  =  -  1 . 0 

10  READ(S,  1, END-90)  A, X, ALPHA 
IF  (A . EQ.  PEE) GOT 01 9 
IF (A . EQ. KEW) GOTO20 
IF  (A; EQ.  DUB) G0T035 
IF  (A . EQ. ESS) GOTO40 
IF (A. EQ. EYE) GOTO60 
IF  (A . EQ. SEA) GOTOR0 
IF (A. EQ. BLANK) GOTO90 
IF (A. EQ.OWE) GOTO70 
WRITE  (6,2)  A  ,  X  ,  A 
STO  P  1 2 

19  BOT 11= .  TR  UE . 

GOT 02 2 

20  ROT AT= . TRUE . 

2  2  »1  =  X  (4) 

I  P  ( .1  .  N  E .  0  .AND.  IABS  (J)  .LT.4)  G0T025 
WRITE  (6,3)  A  ,  X  ,  X  (4) 

STOP  12 

25  IF (J.GT. 0) GOTO30 
J  =  -J 

GOTO  (26,26,27)  , J 


w  n r  p  10 
WNDP  20 
W  N  D P  3  0 
WNDP  40 
WNDP  50 
WNDP  60 
WNDP  70 
WNDP  HO 
W  N  D  P  9  0 
WNDP  100 
WNDP  110 
WNDP  120 
WNDP  130 
WNDP  140 
WNDP  150 
WNDP  160 
WNDP  170 
WNDP  180 
WNDP  190 
WNDP  200 
WNDP  210 
WNDP  220 
WNDP  230 
WNDP  240 
WNDP  250 
WNDP  260 
WNDP  270 
WNDP  280 
WNDP  200 
WNDP  300 
WNDP  310 
WNDP  320 
WNDP  330 
WNDP  34  0 
WNDP  350 
WNDP  36  0 
WNDP  370 
WNDP  380 
WNDP  390 
WNDP  400 
WNDP  410 
WNDP  420 
WNDP  4  30 
WNDP  440 
WNDP  450 
WNDP  460 
WNDP  470 
WNDP  480 
WNDP  490 
WNDP  500 
WNDP  510 
WNDP  520 
WNDP  530 
WNDP  540 
WNDP  550 
WNDP  560 
WNDP  570 
WNDP  580 
WNDP  590 


' 


. 

. 
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26  UK  A  I)  (4,  ALPHA)  X (1)  ,  X  (2) 

GQTO30 

2  7  PI!  AD  (4,  ALP  HA)  X  (1)  ,  X  (2)  ,X  (3) 

GOTO30 

30  CALL  V  RM  1  (X,EM,J) 

GOTO 10 

35  WEIGHT=X ( 1 ) 

GOTO10 

40  SIZE=X(1) 

GOTO  10 

60  CONTI  ( 1)  =X  (  1) 

GOTO  1 0 
70  ICODE1 =0 
GOTO  10 

80  DO  85  1=1,40 
85  CHAP  (I)  =  ALPHA  (I) 

GOTO  10 

- COMPUTE  INFORMATION  ABOUT  COUNTING  CIRCLE 

90  CONTINUE 

CALL  GRID  10  (3) 

CRC=1. 0-SIZE/100.0 
CRCC=CRC*10000. 0 
FC=  A  RCOS  (CRC) 

MPLRC=RC*3 . 937 

--—READ  NEXT  SAMPLE 

100  READ  ( 1, END  =  300)  NN, NV, NO, NPHR, TITLE 
WRITE  (9,7)  NO, TITLE 
110  CALL  PLOT  1 A 

DO  150  LOOP= 1 , NPHR 

READ  (1)  NB,NWD,  (  (DC  (I,  J)  ,1=1,3)  ,  W  (J)  ,  J=1,NB) 
DO  109  J=1,NB 
IF  (WEIGHT)  109, 1C8 , 107 

107  IF (W  (J)  . GT. WEIGHT)  W  (J)  =WEIGHT 
GOT0 1 0  9 

108  W(J)=1.0 

109  CONTINUE 

IF  (. NOT. ROTAT) G0T0125 

CALL  GMPRD  (  RM , DC , DC R , 3 , 3 , NB) 

CALL  PLOT  IB  (DCR,W,  NB) 

GOTO 127 

125  CALL  PLOT  ID  (DC , W , NB) 

127  CONTINUE 
150  CONTINUE 

- PRODUCE  PLOT 

200  CONTINUE 

CALL  PLOT1C  (8, TITLE) 

IF ( . NOT. BOTH) GOTO100 
IF ( ROTAT) GOTO250 
ROT AT= .TRUE. 

GOTO  110 

250  ROTAT=.  FALSE. 

GOTO  100 

300  STOP 


WNDP  600 
WNDP  610 
WNDP  620 
WNDP  630 
WNDP  640 
WNDP  650 
WNDP  660 
WNDP  670 
WNDP  680 
WNDP  690 
WNDP  700 
WNDP  710 
WNDP  720 
WNDP  730 
WNDP  740 
WNDP  750 
WNDP  760 
WNDP  770 
WNDP  780 
WNDP,  79  0 
WNDP  800 
WNDP  810 
WNDP  820 
WNDP  830 
WNDP  840 
WNDP  850 
WNDP  860 
WNDP  870 
WNDP  880 
WNDP  890 
WNDP  9C0 
WNDP  910 
WNDP  920 
WNDP  930 
WNDP  .940 
WNDP  950 
WNDP  96  0 
WNDP  970 
WNDP  980 
WNDP  990 
WNDP 1000 
WNDP  1010 
WNDP 1020 
WNDP 1030 
WNDP  1040 
WNDP1050 
WNDP  1060 
WN  DP  1070 
WN  DP  1080 
WNDP 1090 
WNDP  1  100 
WN  DP  1  1 10 
W  N  D  P  1  1  2  0 
W  N  D  P  1  1 3  0 
WNDP1 140 
WN  DP  1150 
WNDP1 160 
WNDP  1  170 
WNDP1 180 
WNDP1 190 


r  J , 


U  U  ’O  u 
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END 

SUBROUTINE  PLOT  1  A 
C  SETH  COM  NT  HI'S  TO  V.  I’.HO 

UK  A  1.  M  !’  LHC,  GU  MW,  COIJ  NT  (  371  1)  , CONTI  (10),  KMT  (15) 

LOO  I  CAL* 1  CHAU  (4f  10) 

COMMON  /ONE/  F  MT, CO  NT I ,  COU  NT  ,  CI1 A  R  ,  I C  ODE  1 
I  NT  EG  E  R*  2  ALOC(3713)  ,DLOC(371  i)  ,GLOC  (3713) 

COMMON  /TWO/  S  U  M  W  , NTOT , PC  A , HC, CRC, CRCC, MPLRC, A LOC , D LOC , G LOC 
C  FILL  'COUNT'  WITH  ZEROS 

7  DO  10  1-1,1713 
10  COUNT (I) =0.0 
C 

SUM  W  =  0 . 0 

NTOT=0 

RETURN 

C  DEBUG  SUBTRACE, SUBCHK 

END 

SUBROUTINE  PLOT  1  B  (DC  ,  W  ,  N) 

C  INCREMENTS  COUNTERS  FOR  A  BATCH  OF  UP  TO  100  DATA  POINTS 
REAL  DC  (  3  ,  100)  ,W  (100) 

REAL  MPLRC, MPLRC2, COUNT  (79,47) , FMT ( 1 5 ) , CONTI ( 1 0 )  , C H A R  (10) 
INTEGER*2  ALOC  (79,47)  , BLOC  (79,47)  ,GLOC(79,47)  ,GLOCIJ 
COMMON  /ONE/  F MT , CONTI ,COU NT , CH A R , ICODE 1 

COMMON  /TWO/  SUMK, NTOT, PCA,RC, CRC, CRCC, MPLRC, ALOC, BLOC, GLOC 
C 

DO  200  UJ=1,N 
WW  =  W  (J  J ) 

SUMW=SUMW*WW 
NTOT  =  N  TOT* 1 
A=DC  (1  ,.!.]) 

B  =  DC  (2 , J  J ) 

G  =  DC  (  3 , J  J ) 

IE  (C..GT.  0 . 999999)  G=0. 999999 
IF  (G.I.T.-O.  9  99  99  9)  G=- 0.99 9 99 9 
CP  =  SORT ( 1 .  0-G*G) 

IF (CP. EO . 0 . 0 ) GO  TO  100 
CT= A/CP 
ST  = B/C  P 
GO  TO  110 
ICO  ST=0.0 
CT  =  1 . 0 

110  CONTINUE 

CALL  RANGE  X (ST,CT,G, MPLRC ,11 , 12 , J1 , J2) 

WRITE  (6, 1)  ST,CT,G, MPLRC, II ,I2,J1, J2 
1  FORMAT (1 X, 4F10 . 4, 415) 

20  DO  4  0  J  =  J  1 ,  J  2 
DO  40  1=11,12 
GLOC I J  =GLOC  (I, J) 

IF (GLOCIJ. GT,  10000)  GO  TO  40 

CP  H I =A  BS (A* A LOC  (I, J) *B*BLOC (I,J) *G*GLOCIJ) 

IF ( CPU  I. GE. CRCC) COUNT  (I,U) =COUNT  (I,J)  +WW 

40  CONTINUE 

IF (CP. LE. CRC) GO  TO  200 
IF  (CP.  EQ.  1 . 0)  GO  TO  50 
A  RG  =  CH C/C  P 

IF (ARG. LE. 1.0) GO  TO  45 
WRITE  (0,4  2)  CRC,  CP 
42  FORMAT  (1X,2F10.6) 

GO  TO  200  - 

45  MPLRC2=ARCOS (ARG) *3.3937 


WNDP1200 
WN DPI  210 
WN D  P  12  20 
WN DPI  23  0 
WN  I)  I’ 124  0 
WNDP1250 
WN  DP  1 200 
WN DP  1270 
WNDP12R0 
WN  DP  1  29  0 
WN DP  1300 
W  N  D  P  1  3 1 0 
WN  DP  1 320 
WN  DP  1  330 
WNDP1 340 
WNDP  1350 
WNDP1  360 
WNDP1  370 
WN DPI  380 
WNDP1390 
W  N  DP  1  400 
W  N  D  P 1  4 1 0 
WN  DP  1420 
W  N  D  P 1  4  3  0 
WNDP1440 
WN  DP  1  450 
WN  DP  1460 
WNDP1470 
WNDP1480 
WN  DPI  490 
W  N  DP  1 500 
WN  DP  1510 
WNDP1520 
WNDP1 530 
WN  DP  1540 
WNDP1 550 
WNDP  1560 
WNDP  157  0 
WN  DP  1580 
WN  DPI  590 
WNDP  1600 
WNDP1610 
WNDP  1620 
WNDP 1630 
WNDP1640 
WNDP  1650 
WN DPI  66  0 
WN  DP  1670 
WNDP1680 
WN  DP1690 
WNDP1700 
WN  DP  171 0 
WNDP  1720 
WN  DPI  730 
WNDP 1740 
WN  DP  1750 
WNDP1760 
W  N  DP  1  770 
WNDP1780 
WNDP  1790 


' 
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GO  TO  60 

W  N  D  P  1  80  0 

50 

MPL  RC2  =  M  PLRC 

W  N D P 1810 

60 

ST  =  - ST 

WN  DP  1820 

CT=-CT 

W  N  D  P 1  8  3  0 

CP  =  -  10 . 0 

WN DP  184  0 

CALL  RANG  EX  (ST,CT,  0.0,  MPLRC2,  11 , 12  ,  J  1,  J2) 

WNDP185Q 

GO  ^0  20 

WN  DP  186  0 

200 

CONTINUE 

WNDP1870 

RETURN 

WN  DP  1880 

END 

WN  DP  1890 

SUBROUTINE  PLOT  1C  (IOU,  ID) 

WN  DPI  90  0 

GENERATES  PRINTER  PLOT 

WN  DP  1910 

INTEGER*?.  A LOC  (3713)  ,  BLOC  (3713)  rGLOC  (3713) 

WN  DP  1920 

REAL  CONTI  ( 10)  , COUNT  (79,47)  ,  FMT  (15)  , ID  (30) 

WNDP1930 

LOG  I C  A  L  *  1  PLOT  (79)  , CHAR  (40)  , CENT/' ♦'/#BLANK/'  */ 

WN  DP1940 

4 

:,cu  (10  0) /ion* •  *•/ 

WN  DPI  950 

INTEGER  *2  NUM(79) 

W  N  DP  1960 

CON MON/O N E/ FMT ,CONTI, COUNT, CHAR, ICODE1 

WNDP1970 

COM  MON/TWO/SUMW,NTOT,PCA,  RC,CRC,CRCC, MPLRC, ALOC, BLOC,  GLOC 

WNDP1980 

EQUIVALENCE  (Cl, CONTI) 

WN  DP  1990 

LOGICAL  DONT/. FALSE./ 

WNDP2000 

WNDP2010 

IF  (DO NT. OR. ICO DEI. EQ.0) GOTO10  5 

WNDP2020 

WRITE  (IOU, 5) 

WNDP2030 

CONT=0.0 

WN  DP2040 

DO  1 C  3  1=1,40 

WNDP2050 

IF  (CO NT. GT. 100 . 0) GOT0 1 04 

WNDP2060 

WRITE  (IOU, 6) CHAR (I)  ,CONT 

WN  DP2070- 

CO  NT~CONT+CONTI  (1) 

W  N  DP  2080 

103 

CONTINUE 

WNDP2090 

104 

DO  NT  =  . TR  UE . 

WNDP2100 

105 

CONTINUE 

WNDP2110 

WN  DP2  120 

DO  10  1=1,40 

WNDP2130 

10 

Cl!  (I)  "CHAR  (I) 

W  N  D  P  2  1 4  0 

FACT  = 100.0/  (SU  MW*CI) 

WNDP2  150 

WN  DP2 160 

WRITE (IOU, 4) ID, NTOT, SUMW, PCA,CI,CHAR 

WN  DP2  170 

WRITE  ( IOU , 1 ) 

W  N  D  P  2  1 8  0 

WN  DP 2  190 

JS  T  A  R'E  =  1 

WNDP2200 

JSTO  L>-23 

W  N  D  P  2  2 1  0 

200 

DO  280  .7  =  JSTART, JSTOP 

WNDP2220 

DO  220  1=1,79 

WN  DP2230 

L= FACT* COUNT (I, J) +1.0 

WNDP2240 

NUN  (I)  =L 

WNDP2250 

PLOT  (I)  =CH  (L) 

WN  DP 2 26  0 

220 

CONTINUE 

WNDP2270 

WRITE (IOU, 2) PLOT 

WNDP2280 

IF  (ICO  DEI . EQ.0) GOTO280 

WNDP2290 

DO  270  K=5,95,5 

WN  DP 2 300 

CALL  BLNK (NUM, PLOT, K, 6280) 

WNDP2310 

WRITE  (  IOU,  12)  PLOT 

WN  DP2320 

270 

CONTINUE 

WNDP2330 

280 

CONTINUE 

WN  DP2  340 

WNDP2350 

IF  (DSTOP.FQ.4  7)  GOTO400 

WN  DP2360 

WNDP2370 

DO  320  1=1,79 

WNDP2380 

L=FACT*COUNT (I, 24)  *1.0 

WNDP2390 

' 

' 
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NUM  (I)  =L 
PLOT  (I)  =CH  (L) 

320  CONTINUE 

PLOT  (40)  =CENT 

WRITF  (  IOt),  3)  PLOT 

IF (ICO  DEI . EQ.O) GOTO380 

DO  170  K=5, 95, 5 

CALL  R  L  NK  (NUM,PLOT,K,&380) 

WRITE(IOU,12)  PLOT 
370  CONTINUE 
380  CONTINUE 
C 

J START =25 
JSTOP=47 
GOTG200 
C 

400  CONTINUE 

WH ITE ( IOU ,  1) 

RETURN 

C 

1  FORMAT  (IX, IX,  IPX,  •  | ') 

2  FORMAT  (IX, )X, 7 9A1) 

3  FORMAT ( IX, 79A  1,  ) 

4  FORMAT (• 1 ', 20A4/1X, 10A4/1X, 14, '  OBSERVATIONS  WITH  TOTAL  WEIGHT  OF' 

1/1X, ' PERCENT  OF  TOTAL  WEIGHT  IN',F5.1,«  PERCENT  OF  AREA'/ 

*1X , 'CONTOUR  INTERVAL' , F5. 1 , •  CHARACTER  SEQUENCE  *,40A1) 

5  FORMAT  ('  1 '/'  •/»  •/•  •/'  CONTOUR  VALUES  AND  CHARACTERS  FOR  THIS', 

*•  RUN  ARE'/'  '/'  •/'  ') 

6  FORMAT  (5X,  A  1,  •  >  ',F5.1,»*') 

12  FORMAT  (•■♦'  ,  IX  , 79 A  1 ) 

END 

SUBROUTINE  GRID10  (II) 

C  READS  DIRECTION  COSINES  OF  COUNTING  LOCATIONS 

INTEGER* 2  A LOC  ( 37 1 3 ) , B LOG ( 37 1 3)  , GLOC  ( 37 1 3 ) , KA , KB 

COMMON  /TWO/  SUMW,NTOT,PCA,RC,CRC,CRCC,MPLRC, ALOC, BLOC, GLOC 

READ  (I  1,6) 

6  FORMAT  (///) 

DO  5  J  =  1,3  10 

READ  (11,50  0)  K  A,  KB,  (ALOC(I)  ,  BLOC  (I)  ,  GLOC  (I)  ,I=KA,KB) 

500  FORMAT  ( 3 R A 2 ) 

5  CONTINUE 
RETURN 

C  DEBUG  SUUTRACE,SUBCIIK 

END 

SUBROUTINE  RANC,EX(ST,CT,G,R,I1,I2,J1,J2) 

C  COMPUTES  THE  SUBSET  OF  THE  COUNTING  LOCATION  ARRAY  TO  BE  SCANNED 
11=  3.937 

IF  (G. NE.0.0) U  =  3. 937*SQRT (1.0-G) 

X  =  4 , 0  ♦  U  *  S  T 

Y  =  4 . 0- U*CT 
X  1  =  X  -  R 

IF  (X1.LT.0.0) X1=0.0 
I1=X1*10. 0+1.0 

X2  =  X  ♦  R 

IF  (X2.GE.8.  0)  X2  =  7. 95 
I2  =  X2*  10. 0 

Y  1  -  Y  —  R 

IF  (Y1. LT.0.0) Yl*0.0 
J1»Y1*6. 0*1.0 
Y2-Y  +  R 


WN  DP2400 
WNDP2410 
WNDP2420 
WNDD2430 
WN  DP2440 
WNDP2450 
WN  DP  2460 
WNDP2470 
WNDP2480 
WNDP2490 
W  N  DP  2500 
WNDP2510 
WNDP2520 
W  N  DP  2 530 
WNDP2540 
WN  DP2550 
WNDP2560 
W  N  DP  2570 
WNDP25R0 
WN  DP2590 
WNDP2600 
WNDP2610 
WN  DP  2620 
WNDP2630 
WNDP2640 
WND P2650 
WNDP2660 
WNDP2670 
WN  DP2680 
WNDP2690 
W  N  D  P  2700 
WNDP2710 
WN  DP2720 
WND P 2730 
WN  DP2740 
WN  DP2750 
WNDP2760 
W  N  DP  277  0 
WNDP2780 
WN  DP2790 
WN  DP2H00 
WNDP2810 
WN  DP2820 
WNDP2B30 
WN  DP2840 
WNDP2850 
WN  DP2860 
WNDP2870 
W  N  DP  2880 
WNDP2890 
W  N  DP  2900 
WND P 2910 
WNDP2920 
WN  DP2930 
WN  DP2949 
WNDP2950 
W  N  DP  2960 
WNDP2970 
WN  DP  2980 
WNDP2990 


... 
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IF  (Y2.GE.  8. 0)  Y  2  =  7 . 9 

,]2~Y2*6.0 

RETURN 

END 

SUBROUTINE  BLNK  (  NU  M,  PLOT,  K  ,  *) 

C  PUTS  BLANKS  IN  PLOT  VECTOR  LOCATIONS  FOR  WHICH  COUNT  IS  LESS  THAN 
C  THE  GIVEN  VALUE 

INTEGER*2  NU  M  (79) 

LOG ICA L*  1  PLOT  (79) #BL/«  '  /,  NB 
NB= . FALSE. 

DO  100  1-1,79 
IF  (NUM  (I) -K)  60,80, 80 
60  PLOT  (I )  =  BL 
GOTO  10  0 
00  NB  = .TRUE. 

100  CONTINUE 

IF  ( N B)  RETURN 
RETURN  1 
END 


W N  D P 300 0 
WN  DP 30 10 
WNDP3020 
WNDP3030 
WNDP3040 
WN  DP3050 
WN DP  3060 
WNDP3070 
W  N  DP  3080 
WNDP3090 
WNDP3100 
WNDP3110 
WNDP3120 
WNDP3130 
WNDP3140 
WNDP3150 
WNDP3160 
WNDP3170 
WNDP3180 


r> 
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i  ' 


m 


379 


PL0T  0 


(  enter  ) 

1 

/read  direction/ 
/  cosines  of  / 

/  counting  / 

/  locations  / 

/  / 

/  read 

/  parameters  / 

|  1 

compute 
information 
about  counting 
circle 

1 

^  return  ^ 

PL0T  1 

C  T . ) 

i  , 

zero  count 
matrix 

1 

initialize 
total  weight, 
total  number 
of  data  points 

1 

(  return  1 

PL0T  2 


Flow  Diagram  for  Program  WNDPL0T3  -  Part  2 


380 


381 


Appendix  2 

Documentation  of  Subroutine  Library 
and  System  Subroutines 


Subroutine 


Page 


A  N  D  C 

BSTATC  ......... 


«  <a  (s  «  a  a  o  *rj  *  a*  «  m  a  a  8  jj  « 


u  •*»»«•»  • 


i  l>ll  «  fti  i(9  41  it)  «  9  , 


41  «4  ds  ,U  a  O  9  «  94»«ft9A»iOU9<ft  9«»0«  9  M  «  9 


BSTATG  .. 
CIRC 


•j  •  •  i<i 


DCAN 


«>  ®  .**  ,tt>  at 


DCPM1 
EST ATI 
FSTAT1 
INCH 
KUIP2  « 
OBDERH 


•ft  •»  Cft  9ft  «9 


9  9  <*•  Oft  0  9  49  9  «»  Si  «i  ««  itO  «  a  |M  iO 


'  *■>  9  .<»  ®  ms  •  n  m  •  9  «t  «)  i«  o  a*  o  •  9  w  c»  io  aa  •  9  9 


•U  19  -9  9  O  «}  «1  a  9  *3  «•  tie  «9  G  9  at  «»  (D  ttt  «t  >9  «  ill  «(  <D  4t  41  «  0  «|  <i 


a*  «x>  9  «»  4ft  9 


9  «ft 


•  •  «  «i  •  ai  «  9  •  a  i 


<a  «  o  0  «( 


<•!>•«  o  e  tt  Al  9  t«  9  41  0  «»  U  U  9  «S  9  (9  0  9 


0  <tl  <U  At  41  «l  <9  «  «U>  «B  9  <«•  -9  *•  (9  4»  9  O  9  9  00  « 


M  M  •  9 


READK  •  u  s  <u  «  . 


ROTMAT 


«*»  «  9  0»  0*  »  «  9  Oft  <9  9  Aft  9  «»  «>  9  (9  #A  9  «»  9  *tf  9  <9  9  4»  9  9  ,«ft  9  9  «*  0« 


RTS  P 


RTXYEQ 


SC0M1 _ _ 


SRF  .<..<•.< 


0  M  «  *1  9  9  fi  UI4  O  w  9  9  <9  99' 


0  9  (M  9  0  19  9a/)9«»i9«99009  0  0  999 


(U  9  <9  «•  9  9  9  9  9  9  «  #4  9  9  9  «  9  «9  9  '9  •*  9  «»  9  «9  ftft  .«  >»  «•  9  4ft  9  «>  O  O  '9  4ft  9  tfft  9  a  «ft  <9  9  • 


>  Aft  <9  «S  9  9  9  Oft  9  «4  9  <9  «0  «  99  W  «  «  «  9  4*  9  Aft  •  ><*«»  99  9  9  4ft  O  9  «'l  9  •*  «i>  *»  9  4ft  9 


SYMM  - 


9099  0(9  999099 


99  0  O  «  M  9  «l  41  9999  4ft  0*  9  99099  O  «  «i  9 


TAB  1 


41  4ft  9  (9  9  4>  0ft  IO  9  9  9  9  0  9  4>  »  4>  «l  A  ft  9  A  *)  i«  .9  9  O  9  9  9  •»  *9  0ft  <tf  9  O  4ft  9  9  9  , 


►  0ft  i«  4ft  m  9  9  • 


TPXYEQ 


I  «1  9  #ft  •  O  9  0ft 


VRM 1 


WRITEK 


«»  91  9  9  4ft  9  Aft  0  4*  9  40  *•  9  9  «*  9  «»U  «  4ft  9  0*  9 


•  U  «  •  «l  «U  ID  4J  ft)  o  •  U  9  *1  a  9  4*  9  4ft  0  9  9 
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385 

38? 

389 

391 

393 

394 
396 

398 

399 

400 


...  401 
402 


403 

405 

407 

409 

410 

412 

413 

415 

416 

417 


XKF 


382 


X  K.3  - «  -  «  -  "  *  -  M  • 

System  Subroutines 

k?i 

PLOTS  *  „  .  «  ®  - 

^21 

PICT 

ii.21 

SYMBOL  »i  «  » « «  ®  *>«»•«•*•■•»  «•*»««*  «•••*•»  •»  »*»•»•«»•»>»>• 

it2l 

NUMBER  . 

421 

POLAR  - •  .  -  -  - . . . -  —  - . . . . «• 

421 

ORA  ND  - »  . -  -  •  ""  **  •  *  *  “  * 

421 

WHERE  - - -  -  »  -  « . * . . . -  - 


n  n 


SUBROUTINE  AN  DC 


1'  II  I?  DOS  K 

C  0  N  V  i:  H  f-  ION  FROM  SPHERIC  AL  TO  RECTANGULAR  COORDINATES 
FOR  POT  NTS  ON  THE  UNIT  SPHERE. 


AUTHOR 

JOHN  P  A  MS  DEN 

DATE  WRITTEN 
JUNE  IS  7  3 


DFPT  OF  GEOLOGY  UNIVERSITY  OF  ALBERTA 


USAGE 

CALL  AN  DC  (T,P,J1,J2,A,D,C,J3,N) 
DESCRIPTION  OF  PARAMETERS 


T 

P 

J1 


VECTOR  OF  HORIZONTAL  ANGLES 
VECTOR  OF  VERTICAL  ANGLES 
FIRST  INPUT  CODE: 

| 01 |  =  SPACING  OF  INPUT 
J  1)0  IF  INPUT  UNITS  ARE 
J  2  <  0  TF  INPUT  UNITS  ARE 


WORDS  IN 

DEGREES 

RADIANS 


T  AND  P 


J  2 


A 

D 

C 

J 

N 


SECOND 
I  >12  |  =  1 
I  0  2  |  =  2 
I  0  2 |=3 
IN  C  A  S I 
,1  2>  0  IF 
.12  <0  IF 
VECTOR  OF 
VECTOR  OF 
VECTOR  OF 


INPUT  CODE: 

IF  INPUT  TYPE 
IF  INPUT 
IF  INPUT 
S  2  AND 
DOM  A  I  N 
DO  :i  AIN 
FIR  ST 
ECOND 
il  I  R  D 


IS  TREND  AND  PLUNGE  OF  LINE 
TYPE  IS  DIP  DIRECTION  AND  DIP  OF  PLANE 
TYPE  IS  STRIKE  AND  DIP  OF  PLANE 
.3  THE  POLE  IS  TAKEN  AS  THE  GIVEN  POINT 
OF  T  N  I’ll  T  IS  THE  UNIT  SPHERE 
OF  INPUT  IS  THE  UNIT  HEMISPHERE 
DIRECTION  COSINES 
DIRECTION  COSINES 
DIRECTION  COSINES 


3  OUTPUT  CODE: 

|  J  3  |  =  S  PACT  NG  OF 
NUMBER  of  POINTS 


OUTPUT  WORDS  IN  A,  B  AND  C. 


SUH ROUT  1 NKS  R EQUIP  ED 
NONE 


SUBROUTINE  ANDC(T,P,J1,J2,A,3,C,J3,N) 
REAL  T{1)  #P(1)  »A(1),B(1),C(1) 
LOGICAL*!  RAD  . 


R  A  D  =  . FALSE. 

IF  (.11  .  GT.  0  )  GOTO  100 
RAD =. TRUE. 

.J  1  =  -  .1 1 
100  K  T  =  1  ->J  1 
KD  =  1-J 3 
DO  20n  1=1,  N 
K  T  =  K  I1  +  U  1 
KD=KD+J3 
TK=T  (KT) 

PK  =  P  (KT) 


AN  DC  10 
AN  DC  2  0 
AN  DC  30 
AN  DC  NO 
AN  DC  50 
AN  DC  bO 
A NDC  70 
AN  DC  8.0 
AN  DC  0  0 
AN  DC  100 
AN  DC  110 
AN  DC  120 
AN  DC  130 
AN  DC  140 
AN  DC  150 
A  N  EC  160 
AN  DC  170 
AN  DC  180 
AN  DC  10  0 
AM  DC  20  0 
AN  DC  210 
A  N  DC  220 
ANDC  230 
AN  DC  24  0 
ANDC  250 
ANDC  260  . 
ANDC  270 
ANDC  280 
ANDC  200 
ANDC  300 
ANDC  310 
ANDC  320 
ANDC  330 
ANDC  34  0 
ANDC  J50 
ANDC  .360 
A  N  DC  37  0 
ANDC  3H0 
ANDC  .30  0 
ANDC  400 
ANDC  410 
ANDC  420 
.ANDC  430 
ANDC  440 
ANDC  450 
ANDC  460 
ANDC  470 
ANDC  480 
ANDC  490 
ANDC  500 
ANDC  510 
ANDC  520 
ANDC  530 
ANDC  540 
ANDC  550 
ANDC  56  0 
ANDC  570 
ANDC  580 
ANDC  590 


- 


n  n  n  n  n  n  on 


C 

c  CONVERT  ANGLES  TO  RADIANS 

C 

IF  (PAD)  00 TO  150 
TK=TK* 1 . 745329 F-2 
PK  =  nK  *  1  . 745329 E -2 
C 

- CONVERT  angles  to  trend  and  plunge 

150  I2  =  IABS(J2) 

GOTO  (170,165,15C)#I2 
16  0  TK  =  TK  +  1  .  57  0  79  6 
165  TK=TK+ 3. 141503 
PK  =  1  . 5  7  0  7  9  6  -  P  K 

- MOVE  POINT  TO  LOWER  HEMISPHERE 

170  IF  (.12)  17  3  ,  1  80,  180 
173  IE { PK)  175, 180, 1H0 
175  PK  =  -  PK 

TK  -  TK  ♦  3.  14159  3 
130  CON  TIN IJK 

- COMPUTE  DIRECTION  COSINES 


CP- COS  (PK) 

A  (KD)  =COS  (TK)  *  CP 
B  (KD)  -  SIN  (TK)  *CP 
C  { X  D )  -SIN  (PK) 

2  00  CONTINUE 
RETURN 
END 


AN  DC 

60  0 

A  N  DC 

610 

A  N  DC 

62  0 

AN  DC 

6  30 

AN  DC 

64  0 

A  N  DC 

65  0 

AN  DC 

660 

AN  DC 

670 

A  N  DC 

68C 

AN  DC 

690 

AN  DC 

70  0 

AN  DC 

71  0 

A  N  DC 

720 

A  N  DC 

730 

AN  DC 

740 

A  N  DC 

75  0 

AN  DC 

76  0 

A  N  DC 

770 

AN  DC 

78  0 

AN  DC 

790 

AN  DC 

8.0  0 

A  N  DC 

810 

AN  DC 

82  0 

A  NDr 

330 

AN  DC 

34  0 

AN  DC 

850 

AN  DC 

860 

AN  DC 

870 

A  N  DC 

880 

AN  DC 

89  0 

A  N  DC 

900 

A  N  DC 

910 

,  \ 


. 


n  n  n  n  r.  n  r.  n  n  n  n  n  r.  n  n  n  n  n  o  n  n  n  n  n  n  n  n  n  n  n  n  n  n  n  r,  n  n  n  n  n  n  n  n  r,  n  n  n  n  r. 
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SUBROUTINE  11  ST  A  TC 
PURPOSE 

TO  COMPUTE  THE  CONCENTRATION  PARAMETER  ASSUMING  D  I M  ROTH  -  U  A  TSO  N  '  S 
DISTRIBUTION  (DIPOLAR  CASE)  AND  CONFIDENCE  RADII  ON  THE  ESTIMATED 
MEAN  ASSUMING  BINGHAM'S  DISTRIBUTION  (BIPOLAR  CASE). 


AUTHOR 

.JOHN  RAMSDEN,  DEPARTMENT  OF 
EDMONTON,  ALBERTA,  CANADA. 


GEOLOGY,  UNIVERSITY  OF  ALBERTA, 


DATE 


1  DULY  1974 


USAGE 

CALL 


BSTATC  (U  1  ,U2,U3,  N,XK,  R,KO) 


DESCRIPTION  OF  PAR  A  MET  F  RS 


(11,  U2,  U3 


N 

XK 

R 

KO 


TRACE  OF  T  AND  T  IS  THE  CROSS  PRODUCT 


IN  COLUMN 
TOWARD  V 2 


IN 


99% 

ROW 


IN 

2 


METHOD 

THE 

THE 

1972 

PRES 


EIGENVALUES  IN  INCREASING  ORDER  OF  THE  MATRIX  U=T/TR  (T) 
WHERE  TP  (T)  IS  THE 
MATRIX  OF  THE  DATA. 

NUMBER  OF  DATA  POINTS 
ESTIMATED  CONCENTRATION  PARAMETER 
2*2  MATRIX  OF  CONFIDENCE  RADII;  95% 

COLUMN  2;  RADII  TOWARD  VI  IN  ROW  1, 

PRINTOUT  PARAMETER: 

KO<0  NO  PRINTOUT 

K0>=0  RESULTS  PRINTED  ON  I/O  UNIT  KO 


CONCENTRATION  PARAMETER  IS  ESTIMATED  BY  THE  FUNCTION  "XK3", 
FORMULA  FOR  THE  CONFIDENCE  RADII  IS  TAKEN  FROM  MARDIA,  K.  V., 
.  STATISTICS  OF  DIRECTIONAL  DATA.  LONDON  &  NEW  YORK,  ACADEMIC 
S.  P.2B1.  THE  SUBROUTINE  CONTAINS  A  TABLE  OF  THE  95%  AND  99% 


POINTS  OF  THE  F- D IS  f  P I BU  T ION  WITH  2, 
INTERPOLATED  BY  THE  FUNCTION  "T  A  B 1  " 


K  DEGREES  OF  FREEDOM, 


WHICH  ISB 
H 


OUTPUT 

IK  KO  I'S  NON-NEGATIVE  THE  SUBROUTINE  WRITES  THE  ESTIMATED 
CONCENTRATION  PARAMETER  AND  THE  CONFIDENCE  RADII. 


SUBROUTINES  AND  FUNCTION  SUBPROGRAM 
FUNCTIONS  " XK  3"  AND  "TAD1"  FROM 


;  REQUIRED 
JR  SUBROUTINE 


LIBRARY, 


SUBROUTINE  BSTATC  ( IJ 1  ,  U  2  ,  U  3  ,  N  ,  X  K  ,  K  ,  K  0  ) 

REAL  RTD/57.29  57H/, NDF  (34)/1.,2.,3.,4.,5.,6.,7.,H.,9.,10. 

*,11. ,12. ,13. ,14. ,15. ,16. ,17. ,18. ,1  9  . ,20, ,21. ,22. ,2 3. ,24., 

*2  5,  ,24.  ,27  •  ,28,  ,  29.  ,  3C  .  ,40.  *60,  ,  120.  ,  1 . 0  E  7  5/ 

* , F  D  5  (  3  4 )  / 1  9  9 , 5 ,  1  9, 0,9, 55, 6,94, 5. 7 9, 5. 14, 4,74,4,4b, 4, 25, 4,  1,3,9B, 

*  3.  B 9, 3. PI, 3. 74, 3. 68, 3. 63, 3. 59, 3. 5 5, 3. 52, 3. 49, 3. 47, 3. 44, 3. 42, 3. 4, 

*  3  .  3  9,3.37,  3.35,3.3  4,3.33,  3  .  32  ,  3.23,3  .  15,3.07,3.00/ 

*,  FD1  (3  4) /4  9  99. 5, 99. 0,-3  0.8  2,18. 0,13. 27, 10. 92, 9. 55, 8. 65, 8. 02, 7. 56, 

*7.  21, 6. 93,  6. 70, 6.51, 6.  36, 6. 23, 6, 11, 6.01, 5. 93, 5. 8 5, 5.78, j. 72, 5.66, 
*5.6  1  ,5.57,5.53,5.49,5.  45,  5.42,5.39  ,  5  .  18,4.98,4.79,4.6  1/ 


BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
B  S  TL¬ 
BS  TC 
BSTC 
BSTC 
BSTC 
p  S  T  C 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
B  S  T  C 
TC 
TC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 
BSTC 


10 

2  0 

3  0 

4  0 

5  0 

6  3 
70 
8  0 
90 

10O 

1 1  9 

12  3 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 

27  0 

28  0 
290 
300 
310 
32  0 
330 
34  0 
350 
360 
370 
380 

39  0 

40  0 

41  0 
420 
430 
44  0 
450 
46  0 
470 
480 
49  0 
500 
51  0 
520 
53  0 
540 
55  0 
560 
570 
580 
590 


; 


: 

. 


'  l  J {..If  ' . 


n  o 
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*  (  N  /. 

BSTC 

600 

DSTC 

610 

BSTC 

62  0 

REAL  R  ( 4 ) 

BSTC 

630 

XK  =  X  K  3  (U  3 ) 

BSTC 

64  C 

BSTC 

650 

N 2 = n-2 

RSTC 

66  0 

F-  ?  A  H  1  (N  2,  N  DF,  FD5,  34) 

BSTC 

670 

n=IJ  3*  (1. 0-2.G*F/N2) 

BSTC 

680 

CST-  ( H-  1]  1 )  /  ( U  3-1)1) 

BSTC 

690 

r<  ( 1 )  ~  0 .  0 

BSTC 

700 

IF  (CST.GE.  0 .0  .AND. 

CST.LT. 

1.0)  R  (  1)  =FTD*ARCOS  ( SQRT  (CST)  ) 

BSTC 

710 

CST=  (13-H?)  /  (13  3-IJ2) 

BSTC 

720 

r  (?)  -0.0 

BSTC 

73  0 

IF  (COT.  (IF..  0.0  .  AND  . 

CST.LT. 

1 .0) R (2) = RTD*A  RCOS  (SQRT  (CST) ) 

BSTC 

740 

BSTC 

75  0 

F=  1VAB1  ( N  2 ,  N  D  F  ,  F D  1  ,  34) 

BSTC 

76  0 

R  =  U  .3*  (  1.  0-2.0* F/N 2) 

BSTC 

770 

COT  -  (!' -  U  1 )  /  (II3-U1) 

BSTC 

780 

P  ( .3)  -0.0 

BSTC 

79  0 

IF  (CST.GE.0.0  .AND. 

CST.LT. 

1 . 0)  R  (3)  =FTD*ARCOS  (SQRT  (CST)  ) 

BSTC 

800 

CST-  (H-U2)  /  (U3-U2) 

BSTC 

810 

R (4) =  0.0 

BSTC 

820 

IF (CST.GE.0.0  .AND. 

CST.LT. 

1 . 0)  R  (4)  =  RTD*ARCOS  (SQRT  (CST)  ) 

BSTC 

83  0 

IF  (KO.  l.T.-C)  RETURN 

BSTC 

840 

WRITE  (KO,  1 )  XK, P 

BSTC 

850 

1  FORMAT  (•  •/'  '/’ 

K  FOR 

CONFIDENCE  RADII*/ 

BSTC 

86  0 

*•  CLUSTER 

95  3o 

99%*/ 

BSTC 

670 

*  IX , F10.3 , 6X ,2  (P7.  1  , 

F5.  1)  ) 

BSTC 

880 

RFTURN 

BSTC 

890 

END 

BSTC 

900 

nnrinnr,f',r,nr,nnnnnnr.nnnnnnnnnnnfinr.fif;nf'.r,nnn 
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c 

c . . . . . 

c 

c 

C  SUBROUTINE  BSTATG 
C 

C  PURPOSE 

TO  COMPUTE  THE  CONCENTRATION  PARAMETER  ASSUMING  DIMROTH- WATSON  * S 
DISTRIBUTION  (GIRDLE  CASE)  AND  CONFIDENCE  RADII  ASSUMING 
BINGHAM'S  DISTRIBUTION  (GIRDLE  CASE)  . 

All?  II O H 

JOHN  RAHSDEN,  DEPARTMENT  OF  GEOLOGY,  UNIVERSITY  OF  ALBERTA, 
EDMONTON,  ALRERTA,  CANADA. 


DATE 

1  .JULY  19  7  4 


USAGE 

CALL  BSTATG  ( U  1  , 1)2  ,  IJ  3  ,  N  ,  XK  ,  R  ,  KO) 

DESCRIPTION  Oh  PARAMETERS 

I)  1  ,  U  2  ,  U  3  EIGENVALUES  IN  INCREASING  ORDER  OF  THE  MATRIX  U=T/TR (T) 
WHERE  TH (T )  IS  THE  TRACE  OF  T  AND  T  IS  THE  CROSS  PRODUCT 
MATRIX  OF  THE  DATA. 

N  NUMBER  OF  DATA  POINTS 

XK  ESTIMATED  CONCENTRATION  PARAMETER 

R  2*2  MATRIX  OF  CONFIDENCE  RADII:  95^  IN  COLUMN  1, 

IN  COLUMN  2;  RADII  TOWARD  V2  IN  ROW  1,  TOWARD 
V  3  IN  ROW  2. 

KO  PRINTOUT  PARAMETER: 

K  0  <  0  NO  PRINTOUT 

KO >=0  RESULTS  PRINTED  ON  I/O  UNIT  KO. 

METHOD 

THE  CONCENTRATION  PARAMETER  IS  COMPUTED  BY  FUNCTION  "XK1". 

THE  FORMULA  FOR  COMPUTING  THE  CONFIDENCE  RADII  IS  TAKEN  FROM 
MARD1A,  K.  V.,  19  72.  STATISTICS  OF  D  T  DECT  IONA  I.  DATA.  LONDON  & 

NEW  YORK,  ACADEMIC  PRESS .  P.27U.  THE  SUBROUTINE  CONTAINS  A 

TABLE  OF  THE  9B"4  AND  99"'  POINTS  OF  THE  F- D 1  ST  R IBUT  ION  WITH  2,K 
DEGREES  OF  FREEDOM,  WHICH  IS  INTERPOLATED  BY  THE  FUNCTION  "T A B 1 " . 

SUBROUTINES'  AND  FUNCTION  SUBPROGRAMS  RE  OUT  RED 

FUNCTIONS  "XK1"  AND  "T  A  111  "  FROM  JR  SUBROUTINE  LIBRARY. 


c 


SUBROUTINE  BSTATG  ( I)  1 ,  U  2  ,  U  1 ,  N  ,  X  K  ,  R  ,  K  O ) 

REAL  RTD/5  7. 29 5  7  8/ , N  D  F  (IN)  /I. ,2,, 1. ,4, ,5.  ,  6  ,  7  .  ,  8  ,  ,9. ,10. 

*,11,  ,12,  ,13, ,14.  ,15,,16.,1  /  IB,,  19.,  2 U ,  ,  21.  ,22.  ,23.,  24,  , 

*  25. ,  26  . ,  27. ,  28  .,  29  . ,  30  . ,4  0  . ,60. ,  120  . ,  1 .0F75/ 

*,FD5  (3 4) /I  99. 5  ,  1  9.0,9.  55,6.94,5.79,5  .  14,4.74,4.46,4.26,4  .  1,3.98, 
*3. 89,3,81, 3. 74, 3, 6 8,3.63,3.59,3.55,3.52,3.49,3.47,3.44,3.42,3.4, 
*3. 3 9, 3. 37, 3.  35, 3.  34, 3,  33, 3. 32,  3. 23, 3,  15, 3. 07,  3. 00/ 

*,FD1(3 4) /4 999, 5, 99. 0,30. 82, 18. 0,13. 27, 10. 92, 9. 55, 8. 65, 8. 02, 7. 56, 

*7, 21  , 6, 93, 6, 70, 6, 51, 6. 3b, 6. 23, 6.  11, 6. 01,5.  93,  5,  85,  5. 78,  5. 72, 5, 66, 

*5.  61, 5. 57, 5. 53, 5. 49, 5. 45, 5. 42, 5. 39, 5.  10, 4. 98, 4. 79, 4. 61/ 

*,N2 


REAL  H  (4) 


BSTG  10 
BSTG  2) 
BSTG  30 
BSTG  40 
BSTG  50 
BSTG  60 
BSTG  70 
BSTG  B0 
BSTG  90 
BSTG  100 
BSTG  110 
BSTG  120 
BS'lG  130 
BSTG  14  0 
BSTG  150 
BSTG  160 
BSTG  170 
BSTG  180 
BSTG  190 
BSTG  200 
BSTG  210 
BSTG  220 
BSTG  230 
BSTG  240 
BSTG  250 
BSTG  260 
BSTG  270 
BSTG  200 
BSTG  290 
BSTG  300 
BSTG  31 0 
BSTG  320 
BSTG  330 
BSTG  340 
BSTG  350 
BSTG  360 
BSTG  370 
BSTG  380 
BSTG  390 
BSTG  400 
BSTG  410 
BSTG  420 
BSTG  430 
BSTG  440 
, B  S TG  45  0 
BSTG  460 
BSTG  470 
BSTG  480 
BSTG  490 
BSTG  500 
B.STG  510 
BSTG  520 
BSTG  530 
BSTG  540 
BSTG  550 
BSTG  560 
BSTG  570 
BSTG  580 
BSTG  590 


XK  a  K  1  (I)  1 ) 

N  2  '  :'l  -  2 

l-  --  ’\\M  ( N  2,NI)F,  I- !.)  5 ,  3  4) 

H"  HI*  ( 1 . 0  ♦  2 . 0  *  F/  N  2 ) 

CS T  -  (U~ U 2 )  /  (U1-U2) 

R ( 1 ) =0.0 

IF  (CST.GE.  0.0  .AND.  CST.  LT  .  1.0)  R  (  1 )  =PTD*ARCOS  (SQRT  (CST)  ) 
CST  =  (0-1)3)  /(U1-IJ3) 

R (2) =0 .0 

IF  ( CIST.  CH.  0.0  .AND.  CST.LT.1 .0)  R  (2  )  =  FTD*A  RCOS  (SQRT  (CST)  ) 

F=  T  A  13 1  (N  2. ,  NDF,  F  1)1,  34) 
a  =  U 1* (  1 . 0+  2.0*F/N2) 

CST"  ( n - 11 2  )  /  ( U  1  -1J2) 

n ( 3)  =o.o 

IV  (CST.GE. 0.0  .AND.  CST.LT. 1.0)  B (3) = FTD* A RCOS ( SQRT (CST)  ) 
CST  =  (B-U  3)  /  (IJ1-IJ3) 

R (4) =0.0 

IF  (CST. CIS.  0 .0  .AND.  CST.LT.  1.0)  R  (4)  =RTD*ARCOS  (SQRT  (CST)  ) 
IF  (KO.LT. 0)  RETURN 
WRITE  (KO, 1)  XK, R 

Format  ('  •/'  '/'  K  FOR  CONFIDENCE  RADII'/ 

* •  GIRDLE  05%  99%'/ 

*  IX, P10.3,6X#2  (F7. 1 ,F5.  1) ) 

RETURN 

END 


D SI G  TOO 
H ST  G  on 
BSTG  620 
B  S T  G  6  30 
BSTG  64  0 
BSTG  650 
BSTG  660 
BSTG  670 
BSTG  6f  0 
BSTG  690 
BSTG  700 
BSTG  710 
BSTG  720 
BSTG  730 
BSTG  740 
BSTG  750 
BSTG  760 
BSTG  770 
BSTG  780 
BSTG  790 
BSTG  800 
BSTG  810 
BSTG  82  0 
BSTG  830 
BSTG  840 
BSTG  850 
BSTG  860 


f 


■ 


n  n 


3B9 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE:  CTRCl 

PURPOSE:  TO  PERFORM  A  TEST  OF 
KUIPER’S  STATISTIC. 


AXIAL  SYMMETRY  ABOUT  A  GIVEN  AXIS  USING 


AUTHOR 

JOHN  RAMSDEN,  DEPARTMENT  OF  GEOLOGY,  UNIVERSITY  OF  ALBERTA, 
EDMONTON ,  ALBERTA,  CANADA. 

DATE  . 

1  JULY  197  4 
USAGE: 

CALL  CIRC  1  (DC, W , N, SW , E, J, K, I  PRINT) 

PARAMETERS : 


2  OR  I  -  S F. F  J 


i*N  MATRIX  OF  DIRECTION  COSINES 
VECTOR  OF  WEIGHTS 

OF  DATA  POINTS 
W EIG HT5 
OF  LFNGTI1 
PA  R  A  METER: 

E  CO  N  T  A  I  N  S 
CONTAINS 
CONTAINS 
UI.T  : 

-0  IF  TEST  NOT  SIGNIFICANT 

IF  TEST  SIGNIFICANT  (UNIFORMITY 
IPRINT  PRINTOUT  PARAMETER: 

<0  NO  PRINTOUT 

>=0  RESULTS  PRINTED  ON  I/O  UNIT 


DC 

W 

N 

SW 

E 

J 


K 


NUM  BER 
S  U  M  OF 
VECTOR 
I  NPUT 
=  1  IF 
-2  IF 
=  3  IF 
TEST 


r 

E 

re: 


trend  AND 
TREND  AND 
DIRECTION 


PLUNGE 

PLUNGE 

COSINES 


OF  AXIS 
OF  AXIS 
OF  AXI! 


IN 

IN 


DEGREES 

RADIANS 


REJECTED) 


IPRINT. 


METHOD 

SUBROUTINE  "  V  R  M 1 "  IS  CALLED  TO  OBTAIN  THE  MATRIX  TH  A7'  WILL  EFFECT 
THE  ROTATION  THAT  WILL  BRING  TIIF  GIVIN  AXIS  INTO  A  VERTICAL 
POSITION.  SUBROUTINE  "GMPRD"  IS  CALLED  TO  PERFOM  THE  MATRIX 
MULTI PLTCATTON,  SUBROUTINE  "RTSP"  COMPUTES  THE  NEW  TRENDS  AND 
PLUNGES.  FROM  THE  TRENDS  TIIF  SUBROUTINE  COMPUTES  A  WEIGHTED 
FREQUENCY  VECTOR  WITH  360  1-DEGREE  CLASSES.  THIS  IS  PASSED  TO 
SUBROUTINE  "KIJIP2"  WHICH  PERFORMS  KUIPER'S  TEST  FOR  UNIFORMITY 
ON  THE  CIRCLE. 

SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

SUBROUTINES  "VPMl",  " ROT  MAT",  "RTSP"  AND  "KUIP2"  FROM 
JR  SUBROUTINE  LIBRARY. 

SUBROUTINES  "GMPRD"  AND  "GTPRD"  FROM  SSP  SUBROUTINE  LIBRARY. 


SUBROUTI N  E  C I B C 1  (  DC , DC  R , W , N , S W , L , J , E  , I PRI NT ) 
RE  A  L  DC  (  3  ,  1  )  ,  W  ( 1 )  ,  F.  (3 )  ,  DC  R  ( 3 ,  1 )  ,  F  (  3  6  C  ) 

REAL  KM (9) 

CALL  VRM 1  ( E , H  M , J ) 

CALL  GMPRD (RM, DC, DCP, 3 ,3, N) 


CIFC 
CIFC 
C  I  P  C 
Cl  PC 
CIFC 
Cl  RC 
C  I  R  C 
CIRC 
CIRC 
CIRC 
CIRC 
CIRC 
CIRC 
C I  R  C 
CIIC 
Cl  RC- 
CI  PC 
CIFC 
CIRC 
CIRC 
CT  FO¬ 
CI  PC 
CIFC 
CIRC 
CIRC 
Cl  PC 
CIFC 
CIFC 
CIFC 
CIIC 
CIRC 
CIRC 
CIRC 
c  i  re 
c  i  r  c 
c  i  r  c 

CIFC 
C  I  R  C 
Cl  RC 
c  i  r  c 
ci  PC 
CIRC 
C  I  R  C 
CI  RC 
C I  F  C 

C I  I  c 

CIFC 
CIRC 
CIFC 
CIFC 
CIFC 
.CIRC 
CI  PC 
CIRC 

ci  r  e 
CIRC 
CI  RC 
CIFC 
CIRC 


10 

20 
30 
4  0 
50 

6  J 
70 
BO 
9  0 
ICO 
1 1  0 
120 
130 
140 
ISO 
160 
170 
180 
190 
20  0 
210 
220 
230 
240 
250 
26  0 
270 
280 
290 

30  0 

31  0 
320 

33  ) 

34  0 
350 
360 
37  0 
3B0 
390 
400 
4  10 

42  0 

43  0 

44  0 
450 
460 
470 
430 
490 
SCO 
510 
520 

53  0 

54  0 
550 
560 
570 
580 
590 


390 


CALI,  i'THP  |iu;i{  DCR  (2,1)  ,  DC  R  ( 3  ,  1 )  ,  3  ,  DC  R  ,  DCR  (  2  ,  1 )  ,DCR  (3,  1) 
0'  >  '20  1  =  1,  in  1 

3?o  l-'  ( : )  -0.5 

do  3 r- ')  1  =  1,  :i 

I.- LICK  (1,1)  +1.0 

3  05  F  ( I. )  =  V  (L )  +  W  (I) 

FACm=M/SW 
DO  i  HO  1  =  1,360 
380  F(  I)  =F  (I)  *  FACT 

CALL  KDIP2  (F,N,K, IPRINT) 

HR TURN 
END 


3,1,  N) 


CIFC  600 
Cl  PC  610 
CIFC  62  0 
CIFC  63  0 
Cl  PC  64  0 
Cl  PC  65  0 
CIFC  660 
Cl  PC  67  0 
CIFC  680 
CIFC  690 
CIRC  700 
CIRC  710 


t  n 


391 


c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE; 


PURPOSE : 


AUTHOR 


DCAN 

TO  CONVERT  FROM  RECTANGULAR  TO  SPHERICAL  COORDINATES 

JOHN  RAHSDEN  DEPT  OF  GEOLOGY  UNIVERSITY.  OF  ALBERTA 
EDMONTON  ALBERTA 


C 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

C 

c 

c 


DATE  WRITTEN  :  JUNE  1973 

USAGE:  CALL  DC  A  N  ( A  ,  IJ ,  G  ,  J  1  ,  T ,  P  ,  J  2  ,  J3 ,  N) 

DESCRIPTION  OF  PARAMETERS: 

A  VECTOR  OF  FIR.. ST  DIRECTION  COSINFS 

B  VECTOR  OF  SECOND  DIRECTION  COSINFS 
G  VECTOR  OF  THT'D  DIRECTION  COSINES 

J1  INPUT  DESCRIPTION  PARAMETER: 

| j 1 | -  SPACING  OF  DIRECTION  COSINES  IN  A,  B,  AND  G  IN  WORDS 
T  VECTOR  OF  HORIZONTAL  ANGLES 

P  VECTOR  OF  VERTICAL  ANGLES 

j  2  FIRST  OUTPUT  DESCRIPTION  PARAMETER: 

|J2|=  SPACING  OF  OUTPUT  WORDS  IN  T  AND  P 
j  2  >0  IF  OUTPUT  UNITS  TO  IIL  DEGREES 

J2  <0  IF  OUTPUT  UNITS  TO  BE  RADIANS 

J3  SECOND  OUTPUT  DESCRIPTION  PARAMETER: 

|j3|=1  ip  OUTPUT  TYPE  TO  BE  TREND  AND  PLUNGE 
|J.3|=2  IF  OUTPUT  TYPE  TO  RE  DIP  DIRECTION  AND  DIP 

|J3|=.3  IF  OUTPUT  TYPE  TO  BE  STRIKE  AND  DIP 

J 3  >0  IF  DOMAIN  IS  THE  SPHERE 

J  3  <0  IF  DOMAIN  IS  THE  HEMISPHERE 

N  NUMBER  OF  DATA  POINTS 


SIJ  BROUTI  N  F.  DCAN  (A,B,G,J1,T,P,J2,J3,N) 

REAL  A  (N)  ,  R  ( N )  ,G(N)  ,T(N),P(N)  , RT D/57 . 29578/ 
I F  (  M  .  L  T .  1)  RETURN 

11 - TABS  ( J 1 ) 

12- IABS  (J  2 ) 

K  1  =  1  -  I  1 


K2  r 1  - T  2 
DO  100  1=1, N 
K  1  •  K  1  ♦  I!  1 

K  2  K  2  •  T  2 


C 


1  0 


1  3 
1  4 


A  A  -  A  (K 1  ) 

DP  B  (K  1) 

GG  ’  G  ( K  1  ) 

ADJUST 

IF  ( J  3 )  13,13,15 
IF  (GG)  14,15,15 
AA=- AA 


OUTPUT  TO  REQUIRED  DOMAIN 


B  B  =  -  1  •  B 
GG--GG 

15  PL=  A RS I N  (GG ) 

IF ( A  A)  IB, 20 , 1  8 


DCAN 

10 

DCAN 

20 

DCAN 

30 

DC  A  N 

40 

DCAN 

50 

DCAN 

60 

DCAN 

7  0 

DCAN 

00 

DCAN 

90 

DCAN 

100 

DCAN 

110 

DCAN 

120 

DCAN 

130 

DC  A  N 

140 

DCAN 

150 

DCAN 

160 

DCAN 

170 

DC  A  N 

180 

DCAN 

190 

DCAN 

200 

DCAN 

210 

DCAN 

22  0 

DCAN 

230 

DCAN 

240 

DC  A  N 

250 

DC  A  N 

260 

DCAN 

270 

DCAN 

28  0 

DC  A  N 

290 

DCAN 

3C0 

DCAN 

310 

DCAN 

32  0 

DCAN 

3  30 

DC  A  N 

34  0 

DC  A  N 

350 

DC  A  N 

36  0 

.DCAN 

37  0 

DC  A  N 

3  8  C 

DCAN 

39  0 

DCAN 

400 

DCAN 

41  0 

DCAN 

420 

DC  A  N 

43  0 

DCAN 

440 

DCAN 

450 

DCAN 

460 

DCAN 

470 

DCAN 

480 

DCAN 

490 

DCAN 

500 

DC  A  N 

510 

DCAN 

520 

DCAN  530 
DCAN  540 
DCAN  550 
DCAN  560 
DCAN  570 
DCAN  580 
DCAN  590 


' 


. 


•  I 


39? 


c 


c 


18  TE  -A  TA  M  (8B/A  A) 

IT  LT  .  C  .  C  )  i'MMJ,  1  4159266 

GOTo'^O0’0,0  ,AKD*  AA-*lt'°*p)  TH=  3.141  5926 5 


20  T P  =  1 . 5707963  3 

30  IF  ( F  P  .  LT  .  C  .  0)  T  1<  =  T  R  ♦  3.  1  41  592t>5 


1 3  =  r  A  Li  5  ( J  3 ) 


ADJUST  OUTPUT  TO  REQUIRED 


GOTO  (38,36,34) r 13 
34  TP^TE- 1 . 570796 
36  T  R  =  ?  P  -  3  .  14  1  59  3j 

IP (TP . LT.C . 0) TO=TR+6. 2831 85 
PL- 1 ,870796 -PL 


TYPE 


38  IF ( J  2 )  40,40,50 
40  T  ( K  2 ) =  T  R 
P  ( K  ?.)  -  PL 
GOTO  100 
50  T  (K  2)  =  TP  *RT  D 
P  (K2)  =PL*RTD 
100  CONTINUE 
RETURN 
END 


ADJUST  OUTPUT  TO  REQUIRED  UNITS 


DC  AN  60  0 
D  C  A  N  b  1  0 
DCAN  620 
DC  AN  6  30 
DC  AN  64  0 
D  C  A  N  b  5  0 
DCAN  660 
DC  A  N  67  0 
DC AH  680 
DCAN  690 
DCAN  700 
DCAN  710 
DCAN  72) 
DCAN  730 
DCAN  740 
DCAN  750 
DCAN  760 
DCAN  770 
DCAN  780 
DCAN  79Q 
DCAN  800 
DCAN  810 
DCAN  820 


- 


i 


393 


c 

DC  F  M 

10 

c 

DC  PM 

z  ) 

30 

c 

SUBROUTINE:  PC  PM 

DC  PM 

40 

c 

DC  PM 

SO 

c 

PURPOSE:  TO  COMPUTF  T H K  MATRIX 

of  Squares  and  products  of  direction 

DC  PM 

6  0 

c 

COSINES  ("CROSS  PRODUCT  MATRIX")  FOR  A  SET  OF  DIRECTIONS. 

DC  PM 

70 

c 

DC  P  M 

80 

c 

AUT  1101? 

DC  PM 

90 

c 

JOHN  BAMSDEN,  DEPARTMENT  OP 

GEOLOGY,  UNIVERSITY 

OP  ALBERTA, 

DC  PM 

100 

c 

EDMONTON,  ALBERTA,  CANADA. 

DC  PM 

110 

c 

DC  PM 

120 

c 

DATE 

DC  PM 

130 

c 

1  JULY  1074 

DCPM 

140 

c 

DC  PM 

150 

c 

U  S  A  (I 

IE: 

• 

DCPM 

160 

c 

CALL  DC  PM  1  (DC,  W,  N  ,  U) 

DCPM 

170 

c 

DCPM 

180 

c 

PABAMETF lif. : 

DCPM 

1°0 

c 

DC  3*N  MATRIX  OP  DIRECTION  COSINES  OP  DATA  POINTS 

DCPM 

200 

c 

W  VECTOR  OP  WEIGHTS 

DCPM 

210 

c 

N  NUMBER  OF  DATA  POINTS 

DCPM 

220 

c 

U  DATA  CROSS-PRODUCT  MATRIX 

(SYMMETRIC  STORAGE 

MODE) 

DCPM 

230 

c 

DCPM 

240 

c 

SUBROUTINES  CALLED:  NONE 

DCPM 

250 

c 

DCPM 

260 

c 

270 

c 

DCPM 

280 

SUBROUTINE  DCP M 1  ( DC , W , N , U) 

DCPM 

290 

REAL  DC  (3,1)  ,W  (1)  ,U  (6) 

DCPM 

300 

c 

DCPM 

310 

DO  ICO  T  =  1 , 6 

DCPM 

32  0 

100 

U  (  I )  -0.0 

DCPM 

330 

c 

DCPM 

340 

DO  2 CO  J ~  1 ,  N 

DCPM 

35  0 

A -DC  (1  ,  J) 

DCPM 

360 

li-DC  (2, J) 

DCPM 

37  0 

(i=  DC  (  1  ,  J) 

DCPM 

380 

WJ  -  W  (J  ) 

DCPM 

390 

WA= W J* A 

DCPM 

400 

w.n=-w  j  +  b 

DCPM 

410 

wo- wj*'; 

DCPM 

420 

IJ  (  1)  -  U  ( 1 )  +  W  A  *  A 

DCPM 

430 

U(2)  =U  (2)  *  WA*n 

DCPM 

440 

U  (3)  =  U  (3)  +  WP*B 

DCPM 

450 

U  (4)  =U  (4)  +  WA*G 

DCPM 

460 

II  (3)  =IJ  (5)  *  WR*G 

DCPM 

470 

U (6)  =U  (6)  +  WG*G 

DCPM 

480 

200 

CONTINUE 

DCPM 

490 

RETURN 

DCPM 

5C0 

c 

DEBUG  SUBTRACE, SUBCIIK 

DCPM 

51  0 

END 

DCPM 

520 

DRccr.  onnnr,  nrnnonnnnr,  Tonn 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


sun  I'  Ou  r  1  nk  :  ms.  i’at  1 

iui  n  posk 

TO  OP  ]' A  r  N  T 
PKUDI1C  T 

per  form 

COM  PUTS 


iik  !•’ i  0 r: N  VA  L II 
MATRIX,  COMPUTE 

bingham1 s  t r: st s 

STATISTICS  1-  OR 


l-:s  AND  EIGENVECTORS  OK  Til  1!  DATA  CROSS 
ANGULAR  COO  iU.  IN  AT  US  FOK  THE  EIGENVECTORS, 
OK  SYMMETRY  USING  THE  EIGENVALUES,  AND 
AXIALLY  SYMMETRIC  CASKS. 


AUTHOR 

JOHN 


RAM  SDEN.,  DEPARTMENT  OF  GEOLOGY,  UNIVERSITY  OF  ALBERTA, 


EDMONTON,  ALBERTA,  CANADA. 


DATE 


1  JULY  1174 


USAGE 

CALL 


ESTAT.1  (N,  TITLE,  SW  ,  U,  E,  S,  T,  IR  ,  XK  ,  R,  IP  HINT) 


N 

TITLE 

SW 

u 

E 


POINTS 


SYMMETRIC  STORAGF  MODE 
EIGENVECTOR  IN  EACH  COLUMN, 


IR 

XK 

R 

I PR  INT 


NUMBER  OF  DATA 
12C-BYTE  TITLE 

SUM  OF  WEIGHTS  OF  DATA  POINTS 
DATA  CROSS  PRODUCT  MATRIX  IN 
MATRIX  OF  EJ GIN  VECTORS.  ONE 
IN  ORDER  OF  INCREASING  EIGENVALUES. 

M  ATP  T  X  OF  ANGULAR  COORDINATES  OF  EIGENVECTORS.  COLUMNS 
CORRESPOND  TO  COLUMNS  OF  E .  ROWS  1  AN  I)  2  CONTAIN  TREND 
AND  PLUNGE;  ROWS  3  AND  4  CONTAIN  DIP  DIRECTION  AND  DIP 
OF  PERPENDICULAR  PLANE. 

MATRIX  OF.FIGFNVALU.ES.  COLUMNS  ARE  IN 
EIGEN  VA1  UES.  ROW  1  CONTAINS  F  I'GE  N  V  A  LU  ' 

ETGENV  AIRIES  SCALED  SO  THAT  THEIR  SUM  II 
RESULT  OF  SYMMETRY  TESTS  (SEE  SUBROUTINE 
CONCENTRATION  PARAMETER  OF  DIM  ROTH- WATSON • 

FOR  THE  AXIAl.LY  SYMMETRIC  CASES. 

MATRIX  OF  CONFIDENCE  RADII  ON  MEAN  FOR  AXIALLY 
CASES  (SEE  SUBROUTINES  "BSi’ATC"  AND  "BSTATG")  . 

PRINTOUT  PARAMETER: 

TPEINTCO  NO  PRINTOUT 

IPPINT>=P  RESULTS  PRINTED  ON  I/O  UNIT  "IPRINT" 


ORDER  OI¬ 
LS;  ROW  2 

>  1. 


I  NCREASI NG 
CONTAINS 


"S  Y  MM") 

S  DISTRIBUTION 
SYMMETRIC 


METHOD 

SUBROUTINE  "EIGIN"  IS  CALLED  TO 
EIGENVECTORS;  SUBROUTINE.  "RTSP" 

OF  THE  EIGENVECTORS.  SUBROUTINE 
SYMMETRY,  WHILE  SUBROUTINES  " RSTftTC" 
STATISTICS  FOR  THE  AXIALLY  SYMMETRIC 


COMPUTF  T 11 F  EIGENVALUES  AND 
COMPUTES  THE  SPHERICAL  COORD] 
PERFORMS  THE  TESTS  OF 
AND  "BSTATG"  COMPUTE 
CASES. 


"BSTATG"  AND  FUNCTIONS 


SUBROUTINES  REQUIRED 

SUBROUTINES  "RTSP",  "SYMM",  "DSTATC", 

" X  K 1 "  ,  " X  K 1 "  AND  "T  A  B 1 "  FROM  JR  SUBROUTINE  LIBRARY; 

SUBROUTINE  "EIGEN"  FROM  SSP  SUBROUTINE  LIBRARY. 


EGT  A 

10- 

EBTA 

2  0 

EGT  A 

10 

KS'i  A 

4  0 

ES'I  4 

GO 

E  SI  A 

GO 

F  \  >  ']  i\ 

7  0 

E  S  T  A 

8  3 

E  S  T  A 

op 

E  S  T  A 

100 

ESI  A 

110 

EST  A 

120 

ESTA 

130 

EST  A 

140 

ESI  A 

150 

ESTA 

160 

ESTA 

170 

ESTA 

1 B0 

ESTA 

190 

ESTA 

2C0 

ESTA 

210 

ESTA 

220 

ESTA 

2  30 

ESTA 

24  0 

ESTA 

250 

ESTA 

263 

ESTA 

270 

ESTA 

2B0 

E  S  T  A 

29  0 

ESTA 

30  0 

F  S  T  A 

310 

ESTA 

32  0 

ESTA 

.33  0 

EST  A 

34  0 

EG  T  A 

.350 

ESTA 

360 

ESTA 

370 

ESTA 

380 

ESTA 

39  0 

P  '  n  n  t 

40  O 

F.  S  T  A 

4  10 

E  5i  T  A 

420 

ESTA 

4  30 

E  S  T  A 

440 

ESTA 

45  0 

E  S 1’  A 

46P 

ESTA 

470 

;  E  S  T  A 

4  8  0 

ESTA 

490 

E  S  T  A 

500 

ESTA 

510 

ESTA 

520 

ESTA 

530 

ESTA 

540 

ESTA 

550 

ESTA 

560 

ESTA 

57  0 

580 

ESTA 

590 

' 


n  n  n 


395 


c 


i 


c 


2  JO 


27C 


T  N  T  r; !  ’  r '  I T  - 1 T  Kq  j  0  J1  (  N ' T 1 T  L  E  ' S  W ' ' J ' E ' s ' T ' 1 15 '  X  K  '  R  '  1  p  R 1 N  T ) 

RKM,  U  (>  )  ,  T  (0  )  ,  E  (  1 ,  3 )  ,  S  ( 1  2 )  ,  R  (4)  ,TT(2, 3)  ,SS  (4,  3)  ,POLi?  (12) 

wur  r i-  (  lP'UNT,  I)  title, n,sw 

!  '  10  A  4/  I  X  ,  J  5  ,  '  POINTS  WITH  TOTAL  WEIGHT  OE '  ,  E7  .  1 ) 
W  1  i  I  I'.  (  I  P  if  I  N  T ,  2 ) 

(•'0,(MAT(*  '/'  "  HI  NG II A  N  "  STATISTICS') 


DO  2  10  I  ---1,6 
MT)  -  lj  (I) 

CALL  EIGEN  (T,E,  3,0) 

T (5)  - T  ( 1  ) 

T(  1)  -T  ( f  ) 

TP  A C  E  =  T  ( 1  )  ♦  T  (  3 )  ♦  T  (5) 
T  {?.)  - T  (1)  /TRACE 
T  (4)  =T  (3)  /TRACE 
T  (6)  -  T  (5)  /TRACE 
DO  270  1=1,3 
A=E  (I,  1) 

E  ( I  ,1)  =  E  (1,3) 

E  ( 1 ,  3 )  =  A  . 


COMPUTE  ANGLES 


CALL  R  TSP  (E  (1  ,  1)  ,  E  (2,  1)  ,E  (3,  1)  ,  3,S  (1)  ,S(2)  ,  PO  L  R  ,  4 ,  -  1 ,  3) 

CALL  RTSP  (E  (1,  1)  ,  E  (2,1)  ,E{3,1)  ,3,S(3)  ,S(4)  ,  POL  R ,  4  , -2 , 3) 

IE  (I  PRINT. LT.O) G0T031C 
L=  0 

DO  2  HO  .7=1,3 
DO  2  HO  I- 1,4 
l,=  L  +  1 

2  0  0  GG  (  T  ,  .1 )  =  S  ( L ) 

L=  0 

DO  2  0  0  .1  =  1,  J 
DO  200  1=1,2 
I.-L+1 

200  tt  (  I  ,.))  =T  (L) 

Will  T 1'.  (IP  HI  NT,  4) 

do  i(  r  .1  -•  1 ,  ] 

3  00  WL  I  TK  ( I  PHI  NT,  5)  (TT  ( I ,  J )  ,1=1,2)  ,  (  E  ( I ,  J )  ,  1=  1 , 3)  ,  (SS  (I ,  J )  ,  I  =  1 , 4) 

310  CONTINUE 

C 

4  FORMAT  ('  '/'  '/IX,'  FIGENVAL  EVAL/5W  DIRECTION  COSINES 

*  TR  n  L  DD  DP') 

5  F03MATC  '/I  X  ,F9. 2, 4E0. 5,  2  (F7. 1 ,  P5.  1)  ) 

CALL  SYMM  ( T  ( 2)  ,T(4)  ,T(6)  ,  N  ,  IR  ,  IPRI  NT) 

IE  (IR.  Ep.  1  )  CALL  BSTATG  (T  (2)  ,T  (4)  ,T  (6)  ,N,XK,R,  I  PR  I  NT) 

IF  (  IR.  EQ.  2)  CALL  BSTATC  (T  (2)  ,T  (4)  ,T  (6)  ,  N,  XK  ,  R,  I  PRINT) 

C 

R  E  TURN 

C  DEBUG  SUBTRACE#SUBCHK 

END 


E  S 1'  A 

00  0 

ESTA 

019 

K  S  T  A 

02  0 

ESTA 

<>3  ) 

ES’I  A 

04  0 

l.ST  A 

t.SO 

ESI' A 

OO  0 

ESTA 

07  0 

ESI  A 

OHO 

ESTA 

090 

ESTA 

70  0 

ESTA 

710 

ESTA 

720 

ESTA 

730 

ESTA 

740 

ESTA 

750 

ESTA 

760 

ESTA 

770 

ESTA 

780 

ESTA 

79  0 

ESTA 

noo 

ESTA 

HI  0 

ESTA 

820 

ESTA 

83  0 

ESTA 

84  0 

ESTA 

850 

ESTA 

800 

ESTA 

870 

ESTA 

880 

F.  S  T  A 

89  0 

ESTA 

900 

E  S  T  A 

910 

ESTA 

92  0 

E  S  T  A 

9  30 

F  S  T  A 

94  0 

ESTA 

950 

ES  TA 

90  0 

ESTA 

970 

E  S  T  A 

98  0 

EG'”  A 

99  0 

ESTA 1  POO 

F  S  T  A  1  0  1  0 

ESTA  ' 

1020 

ESTA  103  0 

ESTA 1040 

ESTA 1 050 

ESTA  106  0 

ESTA 1 070 

ESTA1 000 

ESTA  1090 

ESTA 1 100 

ESTA  1  110 

ESTA1 120 

396 


c 

c 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


.SUB  ROD  !’  I  M  K  p  ST  ATI 
PUR  !>():;  H 

l' PIJ '-'tii  1  11  c  CLPONENTG  OP  a  S  ]•'  T  OP  VECTORS,  TO  COMPUTE  THE 

LBIB.III,  OH.  her  JON  COSINES  AND  ANGULAR  COORDINATES  OP  TUP 

CONPIDPNCF  llnui?  S(rUTl‘  ™K  CONCENTRATION  PARAMETER  AND 

I D  E  N  C  F  RADIUS  ON  TUP  MEAN  ASSUMING  FISHER'S  DISTRIBUTION. 

AUTHOR 

ED!JoN;S^UUBER?A!ncJNm?F  GE°L°GY'  UNIVERSITY  0E  ALBERTA. 

DATE 

1  JULY  1974 
USAGE 

CALL  PST  ATI  (T  IT L E ,  N  . S W  ,  U  ,  E ,  S ,  T,  XK  .  C R,  IPRINT) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DESCRIPTION  OF  PARAMETERS 
TITLE  120-BYTE  TITLE 
N  N II II  B  PR  Or  DATA  POINTS 

SW  SUM  OF  N EIGHT.  S  OF  DATA  POINTS 

U  VECTOR  OF  SUMS  OF  COMPONENTS 

E  VECTOR  OF  DIRECTION  COSTNES  OF  RESULTANT 

S  VECTOR  OF  ANGULAR  COORDINATES  OF  RESULTANT  CONTAINING 

TREND  AND  PLUNGE  FOLLOWED  BY  THE  DIP  DIRECTION  AND  DIP  OF 
TilE  PERPENDICULAR  PLANE. 

T  VECTOR  CONTAINING  (1)  LENGTH  OF  RESULTANT  AND  (2)  LENGTH 

OF  RESULTANT  DIVIDED  BY  SW. 

ESTIMATED  CONCENTRATION  PARAMETER  OF  POPULATION 
CR  CONFIDENCE  RADII  ON  MEAN:  95?J  AMD  99Y.. 

IPR  TNT  PRINTOUT  PARAMETER: 

IPRTNTCG  NO  PRINTOUT 

I  PR  I  NT  > -  0  RESULTS  PRINTED  ON  I/O  UNIT  "IPRINT". 


C  METHOD 

C  SUBROUTINE  "RTSI>"  COMPUTES  THE  ANGULAR  COORDINATES  OF  THE 

C  RESULTANT.  FUNCTION  "XKF"  ESTIMATES  THE  CONCENTRATION  PARAMETER 

C  OF  THE  POPULATION.  THE  CONFIDENCE  RADII  ARE  COMPUTED  USING  A 

C  FORMULA  GIVEN  BY  WATSON,  G.  S.,  1957,  STATISTICAL  METHODS  IN  ROCK 

C  MAGNETISM,  MONTHLY  NOTICES,  ROYAL  ASTRONOMICAL  SOCIETY,  GEOPHYS. 

C  SUP  PL.,  P.  2  92. 

C 

C  SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
C  SUBROUTINES  "RTSP"  AND  "XKF"  FROM  UR  SUBROUTINE  LIBRARY. 

C 

C  . . . . 

c 

SUB  ROUT!  NE  FSTAT1  (T IT  L  H ,  N  ,  S  W ,  U  ,  E,  S ,  T  ,  XK  ,CR  ,  IP  R  INT) 

INTEGER  TITLE (30) 

REAL  U  (3)  ,  T  (2)  ,  K  (3 )  ,  S  ( 4 )  , C  R  (2 )  ,  RTD/57 . 29578/ 

C 

10  IF ( IPR 1 NT.GE. Q)  WR I TE (I  PR  I  NT, 1 ) TT  TLE, N,SW 

1  FORMATC  '  ,  30A4/1 X,  IS,  •  POINTS  WITH  TOTAL  WEIGHT  OF',F7.1) 

20  IF  (IPRINT. GE.O)  WRITE  (T  PRI NT, 2) 

2  FORMATC  V  "FISHER"  STATISTICS') 


FSTA  10 
. FSTA  20 
FSTA  30 
F  S T A  4  0 
F  S  T  A  5  0 
FSTA  fc9 
FSTA  70 
FSTA  B0 
FSTA  GO 
FSTA  100 
FSTA  110 
FSTA  120 
FSTA  133 
FSTA  140 
FSTA  150 
FSTA  160 
FSTA  170 
FSTA  ISO 
FSTA  190 
FSTA  200 
FSTA  210 
FSTA  220 
FSTA  230 
FSTA  240 
FSTA  250 
FSTA  260 
FSTA  270 
FSTA  280 
FSTA  290 
FSTA  300 
FSTA  310 
FSTA  320 
FSTA  330 
FSTA  340 
FSTA  350 
FSTA  36 C 
FSTA  370 
FSTA  380 
FSTA  390 
FSTA  400 
¥ S  T  A  4  10 
FSTA  420 
FSTA  430 
FSTA  44 0 
FSTA  450 
FSTA  4f  0 
FSTA  470 
FSTA  480 
FSTA  490 
FSTA  500 
FSTA  510 
FSTA  520 
FSTA  530 
FSTA  540 
FSTA  550 
FSTA  5b  0 
FSTA  570 
FSTA  500 
FSTA  590 


i 

) 


nnn 


39? 


30 

X=U  (1) 

F  S  T  A 

600 

40 

Y  =  l)  (2) 

FSTA 

610 

50 

7-8  (3) 

FSTA 

620 

60 

R  =  SORT  (X*X+Y*Y+Z*Z) 

FSTA 

630 

70 

A  -  X/F 

FSTA 

64  0 

80 

R  -  Y  /  R 

FSTA 

650 

90 

G-Z/P 

FSTA 

660 

100 

IF  (APS  (A)  . GT . 0  »  9  99999 )  ASSIGN  (0.99  (999,  A) 

FSTA 

67  0 

1  10 

IF  (  A  P'S  (Li)  .GT.O.  999999)  RESIGN  (0. 999999,  B) 

FSTA 

6P0 

120 

IF  (  A  I<  Si  (G)  .  GT .  0 . 9  9"  9  99)  G=SIGN  ( 0 . 9999  9  9  ,  G) 

FSTA 

690 

1  3  0 

CALI.  PTSP  ( A  ,  ii ,  G  ,  1,S  (1)  ,3  (2)  ,PULR,  1,1,1) 

FSTA 

700 

1  40 

CALI.  RTS  P  ( A  ,  8 ,  G  ,  1,3  (3)  ,S(4)  ,POLR,1  ,2,1) 

FSTA 

710 

1  5  r 

7(1)  =  P 

FSTA 

720 

160 

T  (  2  )  -  b/SW 

FSTA 

7  30 

170 

F  ( 1  )  =  A 

FSTA 

740 

180 

E(2)  =  !) 

FSTA 

75  0 

190 

K(3)  =G 

F  S  T  A 

76  0 

200 

IF  (  IPRINT.  GJI.O)  WRITE  (I  PRINT,  3)  T,E,  S 

FSTA 

770 

.3 

FORMAT  ( '  ’/'  R  .  R/SW  DIRECTION 

COSINES' , 

FSTA 

78  0 

*'  TR  PL  DD  DP'/ 

FSTA 

790 

*  IX , pn, 2, 4F9 . 5, 2  (F7. 1 , F5. 1) ) 

FSTA 

800 

210 

PB=R/SW 

FSTA 

810 

R=RI3*N 

FSTA 

820 

CALL  XKF  (RB,N,XK,JF. R) 

FSTA 

830 

2  30 

EX  =  1.0/(N-1.G) 

FSTA 

840 

240  Q=  (N-R)  /R 

250  CR  (  1)  =RT  Q* A  RCO S  (1.0-  ( 2 0 . 0 * *E X  -  1 .0) *Q) 

2  5  0  CR  (2)  sKTD  +  ARCOS  ( 1 . 0  -  { 1  00.  *  +  EX- 1  .’0)  *Q) 

270  IF  (IPKTNT.LT. 0) RETURN 
2  80  WHITE  (I  PRINT,  4)  XK,CR  (1)  ,CR  (2) 

4  FORMAT  (•  '/'  FISHER  CONFIDENCE  RADII'/ 
*>  K'  9  5*  9  9%'/ 

*F1 0 . 3 , F10.  1  , F7.  1) 


RETURN 

DEBUG  SUBTRACE,  SURCHK 
AT  10 
TRACE  ON 
END 


FST A  850 
FSTA  860 
FST  A  870 
FSTA  880 
FSTA  890 
FSTA  900 
FSTA  910 
FSTA  920 
FSTA  93 0 
FSTA  940 
FSTA  950 
FSTA  960 
FSTA  970 


398 


e 

c . 

C  . . * . 

C  Sill  ROUTINE  INCH 

c 

C  PURPOSE 

o  70  CONVERT  AN  INTEGER  NUMBER  TO  A  CHARACTER  STRING 
C 

C  AUTHOR 

C  JOHN  RAMSDEN  DEPARTMENT  Of  GEOLOGY  UNIVERSITY  OF  ALBERTA 
C 

C  DATE  WRITTEN 
C  27  SEPTEMBER  1974 
C 

C  USAGE 

C  CALL  INCH(M, S,L,J,F ILL, IS, TER) 

C 

C  DESCRIPTION  OF  PARAMETERS 
C  M  FIJI.LW0P1)  INTEGER  ^0  BE  CONVERTED 

C  S  LOCATION  OF  VECTOR  INTO  WHICH  DIGITS  ARE  TO  BE  PLACED 

C  L  NUMBFR  OF  LOCATIONS'  IN  S  TO  BE  USFD 

C  J  SPACING  OF  CHARACTERS  IN  S  (IN  BYTES) 

C  FILL  A  SINGLE  BYTE  CONTAINING  THE  CHARACTER  TO  BE  USED 
C  TO  PAD  THE  BEGINNING  OF  THE  STRING 

C  IS  THE  LOCATION  IN  S  CONTAINING  THE  LEFTMOST  CHARACTER 

C  OF  THE  NUMBER 

C  IER  EFROR  CODE:  IER=1  :  NUMBER  OF  CHARACTERS  IN  NUMBER 
C  GREATER  THAN  L 

C 

C  COMMENTS 

C  THE  DIGITS  ARE  PLACED  IN  L  RI GUT- JUSTI FIED .  ANY  UNUSED  LOCATIONS 
C  AT  THE  BEGINNING  OF  L  ARE  FILLED  WITH  THE  FILL  CHARACTER. 

C  THE  BYTES  OF  L  INTO  WHICH  DIGITS  ARE  PLACED  ARE  1,  1+J,  1  +  2J,  ETC 

C 

C  . . . . . . . . . . 

c 

SUBROUTINE  INCH  (M,S,L, J, FILL, IS, IER) 

LOG  I  CAL  *  1  S  (1)  ,  STAR/' *'/,  FILL 

*,C(1C)/'0','1','2','3',*4','5!,'6','7',‘8','9'/ 

C 

TEPvO 
N--  M 

1=  (L-1)  *.J  +  1 

20  K  =  MOD ( N ,  10) 

S  (T)  --C  (KM) 

N  -  N  /  1 0 

IF  (N.FO.O) GOTO 200 
I  ~  T  -.1 

IF  (1 ) 300,300,20 
200  IB  =  T/J  +  1 

IF  (U.EO.  1)  IS=I 
210  TF  (I.EQ.  1)  RETURN 
I*I-J 
S  (I )  =  FILL 
GOTO 2  1  0 
300  I=1-J 

DO  310  1 1=  1  ,  L 

I  =  I+J 

310  S  (I)  =  STA R 

I E  R  -  1 
IS  =  0 
RETURN 
END 


I  NCI! 

10 

20 

I  N  C  H 

3C 

i  N  (T  11 

40 

INCH 

so 

I  NCH 

6  0 

INCH 

7  0 

INCH 

RC 

I  N  C  H 

90 

I  NCH 

ion 

inch 

110 

I N  C  H 

12C 

I  NCH 

130 

INCH 

140 

INCH 

150 

INCH 

160 

I  N  C  H 

170 

INCH 

180 

INCH 

190 

INCH 

2C0 

INCH 

210 

INCH 

220 

INCH 

23  C 

I N  C  H 

24  0 

i  n  e  h 

260 

INCH 

260 

INCH 

270 

I  N  C  H 

28  0 

1 N  C  H 

290 

INCH 

700 

I N  C  H 

310 

INCH 

320 

,  INCH 

33  C 

INCH 

34  0 

350 

INCH 

360 

INCH 

37  0 

i  n  r  u 

380 

INCH 

390 

INCH 

4  C  0 

INCH 

410 

INCH 

420 

INC  H 

43  0 

INC  II 

440 

I  NCH 

450 

inch 

460 

I  NCH 

47C 

INCH 

4RC 

I  NCH 

4«0 

INCH 

500 

INCH 

510 

INCH 

52  0 

INCH 

5  30 

I  NCH 

54  C 

INCH 

550 

INCH 

560 

INCH 

570 

INCH 

580 

INCH 

590 

INCH 

600 

I  NCH 

61  0 

INCH 

620 

INCH 

630 

o  n 


C 

C 

c 

c 

c 

c 


SUB  ROU  TINE:  KHIP2 

PURPOSE:  GIVEN  A  VECTOR  OF  FREQUENCIES  IN  360  EQUAL  CLASSES  ON  THE 

CIRCLE,  TO  COMPUTE  KUIPER'S  STATISTIC  FOR  TESTING  UNIFORMITY 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


AUTHOR 

.JOHN  RAMSDEN,  DEPARTMENT  OF  GEOLOGY,  UNIVERSITY  OF  ALBERTA, 
EDMONTON,  ALBERTA,  CANADA. 

DATE 


1  JULY  1374 
USAGE 

CALL  KUIP2  {F,N,  IH,  10) 


PARAMETERS : 

F  VECTOR  OF 
N  NUMBER  OF 


FREQIJ  EMC  I  ES 
DATA  POINTS 


IN  SAMPLI 


IR  TEST  RESULT  =0  IF  TEST  MOT  SIGNIFICANT  (UNIFORMITY  ACCEPTED) 
=1  IF  TEST  SIGNIFICANT  (UNIFORMITY  REJECTED) 

10  PRINTOUT  CONTROL  PARAMETER: 

IO<0  NO  PRINTOUT 

IO>  =  9  TEST  RESULTS  PRINTED  ON  I/O  UNIT  10 


METHOD 

THE 


THE 


SUBROUTINE  COMPUTES  THE  STATISTIC 

VS  =  (SN  *■  C.155  <•  0 . 2 4/S N)  *  VN 
WHERE  S  N  =  S  Q  R  T  ( N )  AND  VN  IS  THE  STATISTIC  DEFINED  BY  KIJIPER. 
COMPUTED  VALUE  IS  COMPARED  WITH  THE  95%  POINT  OF  THE  NULL 
DISTRIBUTION  OF  "VS",  AND  THE  RESULT  OF  THE  TEST  IS  RETURNED  IN 

NOT  RETURNED.  THE  NULL 
OF  "N".  THIS  TEST  IS  VALID 


"IR".  THE  COMPUTED 
DISTRIBUTION  OF  "VI. 
ONLY  FOR  N >8 . 
SUBROUTINES  CALLED:  NONE 


VALUE  OF  "VS"  IS 
"  IS  INDEPENDENT 


SEE  M A P  D 1 A , K . V ,  1972  STATISTICS  OF  DIRECTIONAL  DATA.  ACADEMIC  PRESS. 

LONDON  r,  NEW  YORK.  PP  173-100. 


SUBROUTINE  KUIP2  (F,N,IR,IO) 
REAL  F  (360) 

IP=  3 

AMLN=1.0E75 
A  M  A  X  =-  1 . 9  F.7  5 

AN  -  N 

RN= 1 . 0/AN 


S N  =  S Q R T  (AN) 

T-  O  .  C 
E-  0 . 0 

DO  2  C  0  1-1,360 
E=  E f  F  (I)  *RN 
T-T  +  2.  77777  BE- 3 

D  ”  T  -  E 

I  !•’  (AM  I'M  .  GT.  D)  AM  IN-D 
TF  (AMAX.LT. D) AMAX-D 
2  00  CO  NT  IN  UK 

V  N  -  A  M  A  X  -  A  M  I N  +  H  N 
VS  -  (sMtO.  155  +  0. 2'1/BN)  *  V  N 
IF  (VS.  GT.  1 . 747)  11?=  1 
TF(IO.GE.O) WRITE(IO,1)  VS 
R  E  r  U  R  N 
C 

1  FORMAT  ('  '/'  KUIPFH''U  STATISTIC 

C  DEBUG  SUBTRACE, SUBCHK 

END 


K  II I  P  10 
KUTP  20 
K  U I  P  3  0 
K  U 1 P  4  0 
Kill  P  50 
KUIP  69 
K  U I P  7  0 
K U  I  P  0  0 
KUTP  90 
K  U I P  100 
K  U I P  110 
KUTP  120 
K  U I P  13  0 
K  U I P  14  0 
KUIP  150 
KUTP  160 
KUIP  170 
KIIIP  100 
KUIP  190 
KUIP  20  0 
KUIP  210 
KUIP  220 
KUIP  230 
KUIP  24  0 
KUIP  250 
KUTP  260 
KUTP  270 
KUTP  280 
KUIP  290 
KUIP  300 
KUIP  310 
KUIP  320 
KUTP  330 
KUIP  340 
KUIP  350 
KUIP  3b 0 
KUIP  37  0 
KUIP  30  0 
KUIP  390 
KUIP  400 
KUIP  410 
KUIP  420 
KUIP  430 
KUIP  440 
K  U  J  P  4  5  C 
KUIP  460 
KUIP  470 
KUIP  480 
KUIP  490 
KUIP  50  0 
KUIP  510 
KUIP  520 
KUIP  530 
KUTP  540 
KUIP  550 
KUIP  560 
KUIP  570 
KUIP  580 

KUIP  590 

KUIP  600 
KUIP  610 
KIIIP  620 
KUIP  639 
KIIIP  64  0 
KUIP  650 
KIJl'P  t;6  0 
KUIP  670 
KUIP  600 
KUIP  690 

F10.3, 5X, ' 95%  POINT  =  1.747')  KUIP  700 

KUIP  710 
KUIP  720 


; 


n  n  r. 


400 


c 

c  . . . . 

*  *  •  •  »  e  o  • 

C  . . . * . 

c 

C  SUBROUTINE  ORDERU 
C 

C  PURPOSE 

C  TO  ORDER  A  SET  OF  HALF  WORD  INTEGERS 
C 

C  AUTHOR 

GOIIN  RAM. 'IDE  N,  DEPARTMENT  OF  GEOLOGY,  UNIVERSITY  OF  ALBERTA 
EDMONTON,  ALBERTA,  CANADA. 

DATE 

C  1  SEPTEMBER  1974 

C 

•  C  U  S AGE 

C  CALL  ORDERH (M,N) 

C 

C  PARAMETERS 

C  M  VECTOR  OF  HALFWORD  INTEGERS  TO  BE  ORDERED 

C  N  LENGTH  OF  M 

C 

c . . . . . . . . 

c 

SUBROUTINE  ORDERU (M,N) 

I  NT  EGER*  2  M(N),K 
.1=1 

100  MI  N=  9099999  9 
DO  2 CO  I=J  ,  N 
I F ( M  (I)  .GE. MIN) GOTO200 
MI  N  =  M  (I) 

I M  I N  =  I 

200  CONTINUE 
K  =  ;i  (IM  IN) 

M  ( I  M I  N)  =M  (J) 

M (J) =K 
J  =  J  +  1 

IF  (J.LE. N- 1 ) GOT0 1 0 0 

RETURN 

END. 


OR  PH  10 
i O P  D H  20 
O  R  D II  3  0 
07 PH  4  9 
OLD!!  SO 
0  Li  I) H  bO 
OR PH  70 
ORDH  BO 
0  R D  H  9  0 
ORDH  100 
ORDH  110 
ORDH  120 
ORDH  130 
ORDH  140 
ORDH  150 
ORDH  160 
ORDH  17  0 
ORDH  180 
ORDH  190 
ORDH  200 
ORDH  210 
ORDH  220 
ORDH  230 
ORDH  24  0 
ORDH  250 
ORDH  260 
ORDH  270 
OPDH  280 
ORDH  290 
ORDH  300 
ORDH  310 
ORDH  320 
ORDH  33  C 
ORDH  14  0 
ORDH  350 
ORDH  360 
ORDH  370 
ORDH  380 
ORDH  390 
ORDH  400 
ORDH  410 


401 


c 

c 

c 

c 

c 

c 

c 

c: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 


c 


c 


c 

c 


StJBROU  TINE  READK 


PURPOSE 

T0  itnu  A  SET  OF 


INTEGERS  FORMATTED  BY  SUBROUTINE  WRITER 


AUTHOR 

JOH'J  RAMS  DEN  DEPT  OF  GEOLOGY  UNIVERSITY  OF  ALPERTA 

DATE  W PIT  TEN 
M A  R C  H  19  7  1 


USAGE 

CALL  READK  ( 10 U , T ITL F , L E NF I L , LE NKE Y , K E Y , * , * ) 

DESCRIPTION  OF  PARAMETERS 

IOU  I/O  U  HIT  TO  BE  READ 

TITLE  TITLE  OF  THE  SET  READ 

LENFIL  SIZE  OF  THE  UNIVERSE  TO  WHICH  THE  SET  BELONGS 

LENKEY  SIZE  OF  SET 

KEY  SET 

(RETUF.N1)  RETURN  TAKEN  IF  2ND-0F-FII.E  ENCOUNTERED  AT  FIRST  RECORD 
( RETURN  2)  RETURN  TAKEN  IF  END-OF-FILE  ENCOUNTERED  AFTER 

FIRST  RECORD  (SET  NOT  COMPLETE)  OF  IF  RECORDS  ARE 
OUT  OF  SEQUENCE 

SUBROUTINES  REQUIRED 
NONE 


SUBROUTINE  READK  ( IOU , T ITLE , LE NF I L, LENKEY, KEY,*,*) 

1  FORMAT  (  1  0  A  4 , 5  X  ,  I  3 ) 

2  FORMAT  (12A4,4X,I4,4X, 14,1 3 X, 13) 

3  FORMAT  ( 1  314 , 5X , 13) 

INTEGER  TITLE (30) 

IN  TEG  HR*  2  KEY  (50  IB) 


READ  (IOU,  1,  END  =  200)  (TITLE  (I)  ,1  =  1,18)  ,N 
If  (N.NE. 1) GOTO  2  20 

READ (IOU, 2, END =2 20)  (TITLE (I) ,I=19,30),LENFIL,LENKEY,N 
IF  (N. ME, 2) GOTO  220 
IF(LFNKEY.EQ.O) RETURN 

K  A  =  1 
K3  =  18 
NC  =  3 

100  READ  ( tOl) ,  3,  END  =  22  0)  (KEY(I),I  =  KA,KB),N 
IF  (N.NE. NC) GOJ O  220 
K  A  =  K  A  +  1  8 

IF (KA. GT. LENKEY) RETURN 
KB=KB+18 

N C ” NC* 1 
GOTO  ICO 

2  00  RETURN  1 
2  20  RETURN  2 


REPK 

10 

.  R  RPK 

20 

REDK 

30 

R  EDK 

NO 

REDK 

5  0 

R  E  D  K 

6  0 

REDK 

70 

REDK 

80 

REDK 

90 

REDK 

ICO 

REDK 

110 

REDK 

120 

REDK 

130 

REDK 

140 

REDK 

150 

REDK 

160 

REDK 

170 

REDK 

180 

REDK 

190 

P  E  D  K 

200 

REDK 

210 

REDK 

220 

REDK 

230 

REDK 

24  0 

REDK 

250 

REDK 

260 

PEEK 

270 

REDK 

280 

REDK 

290 

REDK 

300 

REDK 

31^ 

REDK 

320 

REDK 

33  0 

REDK 

340 

R  E  D  K 

350 

R  E  DK 

360 

R  l  D  K 

370 

REDK 

380 

REDK 

39  0 

REDK 

400 

REDK 

410 

REDK 

420 

REDK 

43  0 

REDK 

440 

REDK 

450 

REDK 

460 

REDK 

470 

REDK 

480 

REDK 

490 

REDK 

500 

REDK 

510 

REDK 

520 

REDK 

530 

REDK 

540 

REDK 

550 

REDK 

560 

REDK 

570 

REDK 

580 

REDK 

590 

REPK 

600 

.REDK 

610 

REDK 

620 

R  E  D  K 

630 

REDK 

640 

REDK 

650 

REDK 

660 

REDK 

670 

END 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

G 

c 

c 


c 

c 

G 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  FOTMAT 
PURPOS  R 

TO  COMPUTE  THE  3*3  ORTHOGONAL  TRANSFORMATION  MATRIX  T  SUCH  THAT 
Y=T X  WHERE  Y  IS  THE  NEW  POSITION  OF  THE  VECTOR  X  AFTER  A 
SPECIFIED  ROTATION  ABOUT  A  SPECIFIED  AXIS. 

AUTHOR 

JOHN  HAM3DEN,  DEPARTMENT  OF  GEOLOGY,,  UNIVERSITY  OF  ALBERTA, 
EDMONTON,  ALBERTA,  CANADA. 

DATE 

1  FEBRUARY  1072 
U  S  A  G  E 

CALL  HOTMAT  (A, B,C,T) 

PARAMETERS 

A  TREND  OF  AXIS  OF  ROTATION  IN  RADIANS 
B  PLUNGE  OF  AXIS  OF  ROTATION  IN  RADIANS 

C  ANGLE  OF  ROTATION  IN  RADIANS.  POSITIVE  ROTATION  OF  THE  VECTOR 
X  ABOUT  THE  SPECIFIED  AXIS  IS  CLOCKWISE  "0  AN  OBSERVER  AT  THF 
ORIGIN. 

T  RETURNFD  3*3  POTATION  MATRIX. 

METHOD 

THE  SUBROUTINE  CONSTRUCTS  DIRECTLY  THE  POTATION  MATRICES  FOR 
(1)  THE  ROTATION'  THAT  WILL  BRING  THE  SPECIFIED  AXIS  INTO  THE 
POSITIVE  X-AXIS,  AND  (2)  THE  SPECIFIED  ROTATION,  PERFORMED  ABOUT 
THE  POSITIVE  X-AXIS.  IF  THESE  TWO  MATRICES  ARE  RESPECTIVELY  U 
AND  V,  THE  REQUIRED  MATRIX  IS  GIVEN  BY 

T  =  W.V.II 

WHERE  7  IS  THE  REQUIRED  MATRIX  AND  W  IS  THE  TRANSPOSE  OF  U. 

SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

SUBROUTINES  "GMPRD"  AND  "GTPRD"  FROM  SSP  SUBROUTINE  LIBRARY. 


SI!  H  ROUT  INF  ROT  MAT  ( A  ,  B  ,  C  ,  T ) 
REAL  T  (f>)  ,P  (9)  ,Q  (9)  ,R  (9) 

SI  N  A*  SIN  (A) 

COS A  =COS  (A) 

S I  N  n  --  5 1  N  ( n ) 

CO 3 B  =  COS  (B) 

SI  NO  SIN  (C) 

CO SC -COS (C) 

Q ( 1 ) =COSA*COSB 
Q  (2)  =  -  S I N  A 
Q  (  3)  =-COSA*SINB 
Q (4)  -SIN  A  *COS  B 
Q  (  5)  =COS  A 
Q  (6  )  =  -  S I  N  A  *  .3 1 N  B 
Q(7)  =  S  IN  B 

Q (0) =0  . 

0(B)  =COSB 

P (1 J  -I  - 

P (2) =0. 

P'(3)  =  0. 

P  (4)  =0. 
p  (  3)  -  CO SC 
P  (>> )  -  3  T  NC 
P(7)  -0. 

P  ( R  )  =  -  S  I  N  C 

p  ())  =cosc: 

CALL  GMPPD  (P,«,I'»3,3,  3) 

CALL  GTP»n  (Q,R ,T, 3, 3, 3) 

RETURN 

END 


EOTM 

10 

ROTM 

20 

ROTM 

3  0 

ROTM 

40 

ROTM 

50  ’ 

ROTM 

60 

ROTM 

70 

ROTM 

B0 

ROTM 

90 

ROTM 

100 

ROTM 

110. 

ROTM 

120 

ROTM 

130 

ROTM 

140 

ROTM 

150 

ROTM 

160 

ROTM 

170 

ROTM 

100 

ROTM 

190 

ROTM 

200 

ROTM 

210 

R  0  T  M 

220 

ROTM 

230 

ROTM 

240 

ROT  M 

250 

ROTM 

260 

ROTM 

270 

ROTM 

200 

ROTM 

29  0 

ROTM 

30  0 

ROTM 

310 

ROTM 

320 

ROTM 

330 

ROTM 

341) 

ROTM 

350 

ROTM 

360 

ROTM 

37  0 

ROTM 

380 

ROTM 

190 

ROTM 

40  0 

ROTM 

410 

,  ROTM 

420 

ROTM 

430 

ROTM 

440 

ROTM 

450 

ROTM 

46  0 

POT  M 

470 

ROTM 

480 

EOTM 

490 

R  0  T  M 

5C0 

ROTM 

61  0 

ROTM 

520 

ROTM 

530 

ROTM 

540 

ROTM 

550 

ROTM 

560 

ROTM 

570 

ROTM 

580 

ROTM 

59  0 

ROTM 

60  0 

ROTM 

610 

ROTM 

620 

ROTM 

630 

ROTM 

64  0 

ROTM 

650 

ROT  M 

66  0 

KG'!  M 

670 

ROTM 

680 

ROTM 

690 

ROTM 

700 

ROTM 

710 

ROTM 

720 

ROTM 

730 

n  n 
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c: 

c 

c 

c 

c 

c 

c 

c 

c: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


s  uo  rou TINE: 


PURPOSE 


RTS  P 

TO  CONVERT  FROM  RECTANGULAR  TO  SPHERICAL  COORDINATES 


AUTHOR:  JOHN  RAMSDEN  DEPT  OF  GEOLOGY  UNIVERSITY  OF  ALBERTA 

EDMONTON  ALBERTA 


DATE  WRITTEN 


USAGE: 


DESCRIPTION 
A 
R 
G 

J  1 


C 

c 

c 

c 

C 


OF 
VECTOR 
VECTOR 
VECTOR 
I N  ?  U  T 
I  01  I  = 


j  u  ri  ion 

CALL  R  T  S  P  ( A  ,  It ,  G  ,  J  1 , 

PARAMETERS  : 

OF  X  COMPONENTS 
OF  Y  COMPONENTS 
OF  Z  COMPONENTS 
DESCRIPTION  PARAMETER: 
SPACING  OF  COMPONENTS 


T ,  P,  R,J2,J3,N) 


IN  A,  B,  AND  G  IN  WORDS 


T 

P 

R 

J2 


c 

J  2  >0 

IF 

c 

J  2  <C 

IF 

c 

J3 

SECOND 

OU' 

c 

1  J  3  |  =  1 

IF 

c 

1  J3| =2 

IF 

c 

1  J  3  |  =  3 

IF 

C 

J  3  >0 

IF 

c 

J  3  <0 

IF 

c 

N 

NUMBER 

OF 

VfcCTOP  OF  HORIZONTAL  ANGLES 
VECTOR  OF  VERTICAL  ANGLES 
VECTOR  OF  DISTANCES  FROM.  ORIGIN 
FIRST  OUTPUT  DESCRIPTION  PARAMETER: 

| J  2 | ^  SPACING  OF  OUTPUT  WORDS  IN  T  AND  P 
OUTPUT  UNITS  TO  BE  DEGREES 
OUTPUT.  UNITS  TO  BE  RADIANS 
'PUT  DESCRIPTION  PARAMETER: 

OUTPUT  TYPE  TO  BE  TREND  AND  PLUNGE 
OUTPUT  TYPE  TO  BE  DIP  DIRECTION  AND 
OUTPUT  TYPE  TO  BE  STRIKE  AND  DIP 
DOMAIN  IS  THE  SPHERE 
DOMAIN  IS  THE  HEMISPHERE 
DATA  POINTS 


DIP 


SI)  H  ROUTT  N  E  RTSP  ( A  ,  B  ,  G  ,  J  1  ,  T  ,  P  ,  R  ,  J2  ,  J  3  ,  N) 

REAL  A(N),R(N),G(N),T(N),P(N)  ,  RTD/57 . 29578/ ,  R  (N) 
IF  (N . LT.  1 )  RETURN 
I  1=1 ABS  (J  1) 

12  =  TABS  (J2) 

Ki  =  i-n 

K2  =  1-12 
DO  ICO  1=1, N 
K 1  =  K  1  +  1 1 
K2  =  K  2+ 12 
AA=  A  (Kl) 

DD=  B  (K  1  ) 

GG"G(K1)  ADJUST  OUTPUT  TO  REQUIRED  DOMAIN 

IF  (J  3)  13,13,15 
IF  (GO)  14,15,15 
AA=- AA 

13  B  =  -  R  B 


10 


13 

14 


RTSP  10 
RTSP  20 
RTSP  30 
RTSP  40 
RTSP  50 
RTSP  60 
RTSP  70 
RTSP  80 
RTSP  90 
RTSP  ICO 
RTSP  110 
RTSP  120 
RTSP  130 
RTSP  140 
RTSP  150 
RTSP  16  0 
RTSP  170 
RTSP  180 
RTSP  190 
RTSP  200 
PTSP  210 
RTSP  220 
RTSP  230 
RTSP  24 0 
RTSP  250 
RTSP  260 
RTSP  270 
RTSP  280 
RTSP  290 
RTSP  300 
RTSP  310 
RTSP  320 
RTSP  330 
RTSP  340 
RTSP  350 
RTSP  360 
RTSP  370 
RTSP  380 
RTSP  390 
,  RTSP  400 
RTSP  410 
PTSP  420 
RTSP  430 
RTSP  440 
RTSP  450 
RTSP  460 
RTSP  470 
RTSP  480 
RTSP  490 
RTSP  500 
RTSP  510 
RTSP  520 
RTSP  530 
RTSP  540 
RTSP  550 
RTSP  560 
RTSP  570 
RTSP  580 
RTSP  590 


404 


<;g  .  -uu 

1  5  !(•:>  -  :;0'!T  (  a  a*aa  *RB*un  +gu  *GG) 
m  (.;,>)  -pq 
A  A  A  h 
I'  I  I  ”/,i0 
t  (;  -c.c/nij) 

1>L  -  A  >;S  I  K  (<;(?) 

IF  (A  A)  1 8 , 20  ,  IP 
18  TR-  ATAN  (8J/AA) 

IF (TP.LT.C.O) TR=TR*3. 14159265 

IK  (III.  EQ.C  .  0  .AMD.  AA  .  Ll’.O.  0)  th  =  3.  i  4  159265 

GOTO  10 

20  TR  =  1  .  570796.11 

3  0  IP  (1-n.  LT.O.O)  TH=TR*  3.  1  4159265 

C  ADJUST  OUTPUT  TO  REQUIRED  TYPE 

1 1= IABS  (J  3) 

GOTO  (3« ,  36 ,34  ),  13 
.  34  T  R  =  T  P  -  1 . 57 C 7 9 6 

36  T  R  = T 2-3.141593 

IF (TP.LT.C.O) TR=TR+  6.2  831  85 
PL  =  1  .57079  6 -  PL 

C  ADJUST  OUTPUT  TO  REQUIRED  UNITS 

38  IP (J2) 40 ,40, 50 

4  0  T(K2)=TR 

P  (  K  2 }  =  PL 
GOTO  ICO 
50  T  (K  2)  =TR*RTD 
P  (  K  2  )  =  PL*RTD 
100  CONTINUE 
RETURN 
END  • 


P  T  S  P 

600 

r;  t  s  p 

61? 

R  T  S  P 

620 

If  T  S  P 

630 

P  T  S  n 

640 

R  T  S  P 

680 

P  T  S  P 

660 

R  T  S  P 

670 

R^SP 

680 

RTSP 

690 

RTSP 

700 

RTSP 

710 

RTSP 

720 

RTSP 

730 

RTSP 

740 

RTSP 

750 

RTSP 

76  0 

RTSP 

770 

R  T  S  P 

780 

RTSP 

790 

RTSP 

800 

RTSP 

010 

RTSP 

820 

RTSP 

830 

RTSP 

840 

RTSP 

850 

RTSP 

860 

RTSP 

87  0 

RTSP 

880 

RTSP 

890 

RTSP 

900 

405 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

<; 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  RTXYEQ 
PURPOSE 

TO  CONVERT  k  DIRECTION  GIVEN  AS  A  POINT  IN  3 - D I  HE  NS  ION AL  SPACE 
TO  COORDINATES  ON  AN  EQUAL-AREA  PROJECTION. 

AUTHOR 

JOHN  RAMSDEN,  DEPARTMENT  OF  GEOLOGY,  UNIVERSITY  OF  ALBERTA, 
ALBERTA,  CANADA. 


DATE 

1  OCTOBER  19  7  4 
USAGE 

CALI.  RTX  Y  F.Q  ( X  ,  Y  ,  Z  ,  J  1 ,  R  A  ,  X  P  ,  Y  P  ,  J 2  ,  N  ,  I  E  R) 

DESCRIPTION  OF  PARAMETERS 

X,  Y,  Z  VECTORS  OF  COORDINATES  IN  3-SPACE. 

J1  SPACING  OF  INPUT  WORDS  IN  X,  Y,  AND  Z. 

RA  RADIUS  OF  PROJECTION. 

XP,  YP  VECTORS  OF  COORDINATES  OF  THE  POINT  ON  THE  PROJECTION. 
J  2  SPACING  OF  OUTPUT  WORDS  IN  XP,  YP. 

N  NUMBER  OF  POINTS  GIVEN. 

IE  R  ERROR  CODE:  0  NO  ERROR. 

1  AT  LEAST  ONE  INPUT  POINT  WAS  CLOSER  TO 
THE  ORIGIN  THAN  1.0E-6.  XP  AND  YP  FOR 
THE  POINT  WERE  SET  TO  0.0. 

2  EITHER  J1  OR  J2  WAS  0. 

METHOD 

THE  PROJECTION  IS  LAMBERT'S  EQUAL-ARIA  PROJECTION  AND  IS 
PARALLEL  TO  THE  X-Y  PLANE.  THE  XP  AXIS  PARALLELS  THE  Y  AXIS; 
THE  YP  AXIS  PARALLELS  THE  X  AXIS.  THE  POINT  PROJECTED  IS  THE 
POINT  OF  INTERSECTION  OF  THE  LIME  FROM  THE  ORIGIN  TO  THE  POINT 
(X,Y,y.)  WITH  THE  SPHERE  OF  RADIUS  RA  CENTRED  AT  THE  ORIGIN. 

FOR  EACH  POINT  THE  PROGRAM  FIRST  COMPUTES  THE  DISTANCE  FROM  THE 
ORIGIN  TO  THE  POINT,  THEN  DIVIDES  THE  COORDINATES  BY  THIS 
DISTANCE  TO  OBTAIN  DIRECTION  COSINES  A,  U,  G.  X  AND  Y  ARE  THEN 
COMPUTED  USING  THE  EQUATIONS 
X=RT  ;  Y-AT 

WHERE  T*R *:SQHT  (  ( 1-G)  /  (  1-G*G)  )  AND  R  =  RADIUS  OF  PROJECTION. 
REMARKS 

PROVIDED  J  2  IS  NOT  GREATER  THAN  J1,  XP  AND  YP  MAY  OCCUPY  THE 
SAME  LOCATIONS  AS  ANY  TWO  OF  X,  Y  AND  Z.  OTHERWISE  THE  INPUT 
VECTORS  ARE  NOT  DESTROYED. 

MINIMUM  SIZE  FOR  THE  VECTORS  XP  AND  YP  IS  J2*N. 

SUBPROGRAMS  REQUIRED 
NONE. 


SUB ROUTINE  RTXYEQ(X,Y,Z,J1,RA,XP,YP,J2,N,IER) 


ETXL 

10 

RTX  E 

20 

RTXL 

3  0 

PTXE 

40 

RTXE 

50 

PTXE 

60 

RTXE 

70 

RTX  F 

B0 

PTXE 

90 

PTXE 

100 

RTXE 

110 

RTXE 

120 

RTXE' 

130 

RTX  E 

14  0 

RTXE 

150 

RTXE 

100 

RTX  E 

170 

PTXE 

180 

RTXE 

190 

PTXE 

200 

RTXE 

210 

RTX  E 

220 

RTXE 

230 

RTXE 

240 

RTXE 

250 

RTXE 

260 

PTXE 

270 

RTXE 

28C 

RTXE 

29  0 

RTXE 

300 

RTXE 

310 

RTXE 

320 

PTXE 

330 

RTXE 

34C 

RTXE 

350 

RTXE 

36  0 

RTXE 

370 

ETX  E 

38  0 

RTXE 

390 

RTX  E 

400 

RTXE 

410 

RTXE 

420 

RTXE 

4  30 

RTXE 

440 

RTXE 

45C 

RTX  F 

46  0 

RTXE 

470 

RTXE 

480 

PTXE 

490 

RTXE 

50  0 

RTXE 

510 

RTXE 

520 

RTXE 

530 

RTXE 

540 

RTXE 

550 

RTXE 

56  0 

RTXE 

570 

RTXE 

580 

RTXE 

590 

40  6 


li'.AI.  '/  (1)  ,Y  (1)  „  Z  (  1 )  ,XP  (1)  ,  Y  P  ( 1 ) 

i  r  >  r; 

00  c 

r*t<  r 

r  t  y  !•: 

bio 

P  T  X  E 

b20 

I  F  (.1 1  .  KO.C  .  OR.  U2.  Ef>.  C)  GOTO? 00 

P  T  X  K 

0  30 

11  1-01 

P  T  X  E 

64  0 

I  2  -  1-0? 

FT  X  E 

650 

DO  1  0  0  I  =  1  ,  N 

RTXE 

6b  C 

11=11+01 

PTXE 

670 

12=12+02 

RTXE 

68  C 

xi  =  x  (ii) 

RTXE 

690 

YI  =  Y  (11) 

RTXE 

700 

ZI  =  Z  (11) 

RTXE 

710 

R=S0RT  (XI*XI  +  YI*YI*ZI*ZI) 

P^X  E 

720 

IF  (R.LT. 1 . 0  F-6 ) GOTO50 

PTXE 

730 

XI  =  X I/R 

RTXE 

74C 

YI  =  YI/P 

PTXE 

750 

ZI*ZT/R 

PT  >:  E 

760 

T=RA*I5C)RT  (  (1.0-ZI)/  (1. 0-ZI*ZI)  ) 

RTXE 

770 

XP  (12)  =  Y  I*T 

RTXE 

780 

YP  (12)  =  X I  *T 

RTXE 

79  0 

GOT0 1 C 0 

PTXE 

800 

IER  =  1 

RTXE 

810 

XP  ( T  2 ) =0.0 

RTXE 

820 

YP  ( 12)  =0 . 0 

RTXE 

83  0 

CONTINUE 

RTXE 

840 

RETURN 

RTXE 

850 

I E  R  =  2 

RTXE 

860 

RETURN 

RTXE 

87  0 

END 

RTXE 

880 

n  a  n 


407 


c 

c 

c 

c 


c 

G 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

G 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


fit)  13 POUT  IN  E  : 


SCOM  1 


PURPOSE 

i'O  COMPUTE  1IIE  StJKS  OF  THE  COMPONENTS  OF  A  SET  OF  VECTORS 
AUTHOR 

JOHN  HAMSDEN,  DEPARTMENT  OF  GEOLOGY ,  UNIVERSITY  OF  ALBERTA 
EDMONTON,  ALBERTA,  CANADA. 

DATE 

1  JULY  1 9  7  4 
USAGE: 

CALL  SCOM  1  (DC  ,  W  ,  N  ,  V  ,  J  M  ,  U) 

PARAMETERS: 

DC  3*N  MATRIX  OF  DIRECTION  COSINES 
W  VECTOR  np  WEIGHTS 
N  NUMBER  OF  DATA  POINTS 
V  VECTOR  OF  LENGTH  2  OR  3  -  SEE  JM 
J M  =C  IF  DIRECTIONS  USED  AS  GIVEN 

-1  IF  DIRECTIONS  TO  BE  ADJUSTED  AND  V  CONTAINS  TREND  AND  1 
■OF  CENTRE  OF  HEMISPHERE  IN  DEG  P  FES 
-2  IF  DIRECTIONS  TO  BE  ADJUSTED  AND  V  CONTAINS  TREND  AND  1 
OF  CENTRE  OF  HEMISPHERE  IN  RADIANS 
=3  IF  DIRECTIONS  TO  BE  ADJUSTED  AND  V  CONTAINS  DIRECTION 
COSINES  OF  CENTRE  OF  HEMISPHERE 
U  VECTOR  OF  LENGTH  3  IN  WHICH  SUMS  OF  COMPONENTS  ARE  PLACED. 

SUBROUTINES  CALLED: 

SUBROUTINE  "ANDC"  FROM  JR  SUBROUTINE  LIBRARY. 


SUBROUTINE  SCO  Ml  (DC  ,  V  ,  N ,  V  ,  J  M,  U) 

.LOG  ICAL*  1  A  SIS 
REAL  DC  (J,  1)  ,W  (1)  f  U  (3)  ,V  (3) 

IF  (JM)  100,1  00 , 50 
50  AS  T  S  =  ,  FA  L  SF  . 

GOTO  (DO,  70 ,80)  ,  JM 

60  CALL  ANDC  (V,V  (2)  ,1,1,AC,BC,GC,  1,1) 

GOTO  1  50 

70  CALL  ANDC  (V  (1)  ,V  (2)  ,-1  ,  1,AC,RC,GC,  1,  1) 

GO  'v  O  1  5  0 

8  0  A  C  =  V  ( 1 ) 

DC---  V  (2) 

GC  =  V  (3) 

GOTO  1  50 

100  AS  I S=. TRUE. 

150  CONTINUE 

RX -  0 . 0 
R  Y  =  0 . 0 
RZ-0 . 0 

DO  210  J=1 , N 


SCOM 

1C 

2C 

SCOM 

30 

SCOM 

4  0 

SCOM 

50 

SCOM 

60 

SCOM 

70 

SCOM 

80 

SCOM 

90 

SCOM 

100 

SCOM 

110 

SCOM 

120 

SCOM 

130 

SCOM 

140 

SCOM 

150 

SCOM 

160 

SCOM 

170 

SCOM 

180 

SCOM 

190 

SCOM 

20  0 

SCOM 

210 

SCOM 

220 

SCOM 

230 

SCOM 

24  0 

:scom 

250 

SCOM 

260 

:scom 

270 

SCOM 

28  0 

SCOM 

290 

SC  CM 

3  C  0 

SCOM 

310 

SCOM 

320 

SCOM 

330 

SCOM 

340 

SCOM 

350 

SCOM 

3  b  0 

SCOM 

370 

SCOM 

38  0 

SCOM 

390 

SCOM 

400 

SCOM 

4  10 

SCOM 

420 

SCOM 

43  0 

SCOM 

440 

SCOM 

450 

SCOM 

460 

SCOM 

470 

SCOM 

48Q 

SCOM 

490 

SCOM 

500 

SCOM 

510 

SCOM 

520 

SCOM 

530 

SCOM 

540 

SCOM 

550 

SCOM 

560 

SCOM 

570 

SCOM 

580 

SCOM 

590 

408 


170 

20  0 

210 


C 


x  ■ or  (i,o) 

S  CON 

60  0 

Y=.y:  (> » 0 ) 

SCON 

610 

(i,o) 

SC  C  M 

62  0 

WO  - W  (0) 

SCON 

630 

IF  (AMIS)  G0TQ2C  0 

SCO  !'i 

6S  0 

C=X*AC  +  Y*IiC+Z*GC 

SCOW 

66  0 

IF  (C)  170,200,200 

SC  CM 

66  0 

X=  -  X 

SC  CM 

67  0 

Y --  Y 

SCOM 

680 

Z=-Z 

seen 

690 

RX=RX+WJ*X 

SCOM 

700 

RY=PY«-WJ-*Y 

SCOM 

710 

RZ  =  RZ  +  WJ*Z 

SCOM 

720 

CONTINUE 

SCOM 

730 

u  ( i )  =  r  x 

SCOM 

740 

U  (  2)  =  R  Y 

SCOM 

750 

u  (i)  =r<z 

SCOM 

760 

RETURN 

SCOM 

770 

DEBUG  SUBTRACE, SUBCHK 

SCOM 

78  C 

END 

SCOM 

790 

409 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 


SUBROUTINE  SR F 


PURPOSE 


KSKSg™  IW“EM'  "«»»*»•  BI  *  «I«« 

U  SAGE 

CALL  SRF (RL , IN , N ,TF, MAX ) 

DESCRIPTION  OF  PARAMETERS 


PL 
I  N 
N 

I  F 
M  AX 


VECTOR  OF  GIVEN  REAL  NUMBERS 
VECTOR  OF  RETURNED  INTEGERS 
NUMBER  OF  NUMBERS  TO  BE  PROCESSED 

POWER  OF  10  BY  WHICH  NUMBERS  ARE  TO  BE  MULTIPLIED 
MAXIMUM  VALUE  TO  WHICH  RESULTING  INTEGERS  ARE 
TR  UNCATED 


C  REMARKS 

C  R.L  AND  IN'  MAY  BE  IN  THE  SAME  LOCATION 
C  GIVEN  NUMBERS  MAY  BE  POSITIVE  OR  NEGATIVE 

C  RETURNED  INTEGERS  ARE  IN  THE  RANGE  -MAX  TO  MAX  INCLUSIVE 
C 

C  SUBROUTINES  REQUIRED 
C  NONE 

C 

C  METHOD 

C  EACH  REAL  NUMBER  IS  MULTIPLIED  BY  10**IF  AND  THEN  ROUNDED. 

C  IF  THE  RESULTING  INTEGER  IS  >  MAX,  IT  IS  SET  TO  MAX.  IF  IT 

C  IS  <  -MAX  IT  IS  SET  TO  -MAX. 

C 

C . . . . . .  . . . . 

c 


SUBROUTINE  SRF  (RL, IN, N,IF, MAX) 
R  F  A  L  R  L  ( N ) 

INTEGER  IN ( N ) 


F-  1  0 .0*.*  I  F 
no  pro  j=i,n 

IN. I  =  KL  (.1)  *F*S  JGN  (0 . 5,  R  L  (J)  ) 
IF  (  r  NU . GT. MAX)  INJ=MAX 
IF  (  IN.)  .LT.  -MAX)  INJ=-MAX 
IN  ( ,  I ) = 1 N  J 
200  CONTINUE 
RETURN 
EN  D 


1  0 

20 

S  R  F 

30 

SRF 

40 

SRF 

50 

SPE 

60 

SRF 

70 

SRF 

80 

SRF 

DO 

SRF 

100 

SRF 

110 

SRF 

120 

SRF 

130 

SRF 

140 

SRF 

150 

SRF 

160 

SRF 

170 

SRF 

180 

SRF 

19  3 

SRI 

20  0 

S  R  F 

210 

SPF 

22  r 

SRF 

230 

SRF 

24  0 

SRF 

25C 

SPF 

260 

SRF 

27  0‘ 

SRF 

280 

SRF 

290 

SRF 

30  0 

SRF 

31  0 

SRF 

320 

SRF 

330 

SRF 

340 

35  0 

S  n  F 

360 

SRF 

37  0 

SRF 

380 

SRF 

390 

SPF 

400 

SRF 

4  10 

SRF 

420 

S  R  F 

430 

SRF 

440 

SRF 

450 

SRF 

46  0 

SRF 

470 

SRF 

480 

SRF 

490 

410 


t| 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


S  (I  U  r-  o:  I  !’  IN)-:  SYMM 
P  U  R  P  0  S  R 

TO  USE  0 I N  G  i]  A  M '  0  TESTS  BASED  ON  THE  EIGENVALUES  OF  THE  DATA  CROSS 
PRODUCT  MATRIX  TO  PERFORM  AN  ANALYSIS  OF  THE  SYMMETRY  OF  A  SET 
OF  LINES. 


AUTHOR 


JOHN  RAM S DEN ,  DEPARTMENT  OF  GEOLOGY,  UNIVERSITY  OF  ALBERTA 
EDiONTON,  ALBERTA,  CANADA. 


DATF. 


1-  JULY  1974 


USAGE 

CALL  5YMM  (U  1 ,  U 2  , II 3  ,  N  ,  I  R ,  K) 


PA  RAMETEFS 

U  1 , U2, U3 
N 

IR 


EIGENVALUES  SCALED  SO  THAT  UHU2+U3=1. 

NUMBER  OF  DATA  POINTS 
TEST  RESULT: 

0  HYPOTHESIS  K1=K2=K3  ACCEPTED 

1  HYPOTHESIS  K2  =  K3  ACCEPTED 

2  HYPOTHESIS-  K  1  ^  K  2  ACCEPTED 

3  ALL  HYPOTHESES  REJECTED 

K  PRINTOUT  PARAMETER: 

K<0  NO  PRINTOUT 

K  >=  3  RESULTS  PRINTED  ON  I/O  UNIT  K . 

METHOD 

TESTS  ARE  TAKEN  FRO M  '  B I NGH A M ,  C.,  1964,  DISTRIBUTIONS  ON  THE 

SPHERE  AND  ON  THE  PROJECTIVE  PLANE,  P1I.D.  THESIS,  YALE  UNIVERSITY 
IT  IS  POSSIBLE  THAT  Kl=K2=K3  IS  REJECTED  WHILE  NEITHER  K2=K3  NOR 
K 1 =K  2  IS  REJECTED.  IN  THIS  CASE  THE  PROGRAM  CHOOSES  TO  ACCEPT 
WHICHEVER  OF  THE  LAST  TWO  HYPOTHESES  YIELDS  THE  SMALLER  STATISTIC 

SUBPROGRAMS  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE . 


SUB  ROUTINE 
1  FORMAT  ( 

*  ,  F  1-0 . 4  ,  • 

4  FORMAT  ( 

*  T I  S  T 1  C  =  * , F 1 0 

5  FORMAT ( 

*  T I  S  T  J  C  =  ' 


7 

8 
9 

10 
1 1 


c 

c 


FO R  M  ETC 
FORMAT  (' 
FO  RM AT  (' 
FORMAT  (' 
FORMAT  {’ 


I R  =  0 


SYMM  (U  1  ,U2  ,  U  3,  N,  I R,  K) 

•  » /'TEST  OF  HYPOTHESIS 

5  %  POINT =  1  1. 0  7 05') 

•  »/1^ *  'TEST  OF  HYPOTHESIS 

4,  '  5%  P  O I N  T  =  5 . 991  47* ) 

•  * / 1 X , 'TEST  OF  HYPOTHESIS 

,  F  1  0 . 4  ,  '  5%  POINTED.  99147  •) 

•/'  HYPOTHESIS  K1=K2=K3  ACCEPTED') 
HYPOTHESIS  K  2  =  K  3  ACCEPTED') 
HYPOTHESIS  K 1 =  K 2  ACCEPTED') 

ALL  HYPOTHESES  REJECTED') 


K1=K2=K3:  TEST  STATISTIC=' 

K  2=  K  3 ' ,  TEST  STA 

K  1  =  K2* ,  • :  TEST  STA 


V 

' ) 


SYMM 
SYMM 
S  Y  M  M 
SYMM 
SYMM 
S  Y  M  M 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
S  Y  M  M 
S  Y  M  M 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
S  Y  M  M. 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 


10 

20 
30 
40 
50 
6  0 
70 
0  0 
90 
100 
110 
120 
130 
140 
150 
160 
170 
100 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
30  0 
310 
320 
330 
34  0 
350 
360 
370 
30  0 
39  0 
400 
4  1  0 
420 

43  0 

44  0 
450 
460 
470 
480 
490 
5C0 
510 
520 
530 
540 
550 
560 
570 
580 
590 


, 


n  n  n  o  9  n  non  nnn  nnn 


411 


140 

1.50 

160 

130 

1  30 

2  20 

3  no 

320 
3  40 

400 

500 

520 

540 

600 


11  =  1 

T  2  =  1 

13=1 

IF  (K.fiE.  0)  W  HIT  F  (K  ,  1  1) 

TEST  FOR  HYPOTHESIS  K1=K2=K3 


S  YMF 
SY  MM 
SYMM 
S  Y  M  M 
S  Y  M  M 

"CUBIC"  SYMMETRY)  SYMM 


TEST  -  {  ( A  L  0  G  (3. 0+U  1 )  )  **  2  +  (ALOG  (3  .  *U2)  )  **2+  (A LOG  (3 
IF  (K.GE.  0)  WRITE  (K  ,  1  )  TEST 
IF ( TEST-  1  1.0  70  5)  150,140,1  40 
11=2 


SYMM 

*U3))**2)*N*5./6.SYMM 

SYMM 

SYMM 

SYMM 


TEST  HYPOTHESIS  K2-K3  ("TETRAGONAL"  SYMMETRY (1)) 

l’EST  =  A  LOG  '(IJ 2/113) 

TEST  =  TEST*  TEST*  N/3 . 0 
IF  (K  .GF.  0)  WRITE  (K  ,  4)  TEST 
IF (TEST-5 .99147) 160,180,180 
R 1 =TFST 
GOTO  1 9  0 
12  =  2 


SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
SYMM 
S  Y  M  M 
SYMM 
S  Y  M  M 


TEST  HYPOTHESIS  Kl=K2  ("TETRAGONAL"  SYMMETRY (2) ) 

T EST=  A LOG  (U  1/U2) 

TEST=TEST*TEST*N’/3 . 0 
IF  (K.GF.0)  WRITE  (K, 5) TEST 
IF  (TEST- 5. 9  91  4  7)  300,22  0,22  0 
13  =  2 

ANALYZE  TEST  RESULTS 


SYMM 

SYMM 

SYMM 

SYMM 

SYMM 

SYMM 

SYMM 

SYMM 

SYMM 

SYMM 


IF  (II. no.  1) GOT 04 0  0 
GOTO  (3  2.0 ,340)  ,12 
GOTO  (500,  520)  , I  3 
GOTO  (540,600)  ,  13 


SYMM 
SYMM 
SYMM 
SYMM 
S  Y  M  M 


f.ap 
610 
620 
630 
64  0 
650 
660 
67  0 
680 
690 
700 
71  C 
720 
730 
740 
750 
76  0 
770 
780 
790 
80  0 
8  10 
P20 
830 
84  0 
850 
86  0 
870 
88  C 
890 
900 
910 
920 
930 
940 
950 


SET  RESULT  CODE  AND  WRITE  MESSAGE 


T  R  =  9 

IF  (K  .  GE.  0)  WRITE  (K  ,  7) 
RETURN 

IF  (R1-TEST)  520,520,540 
IR  =  1 

IF  (K.GE.0)  WRITE  (K,8) 
RET UP N 


SYMM  960 
SYMM  970 
SYMM  980 
SYMM  990 
SYMM 1 000 
S  Y  M  M  1  0  17 
SYMM 1020 
S  Y  M  M  1  0  3  0 
SYMM  104n 
SYMM1059 


I R  =  2 


SYMM  1060 


IF  (K.GE.C)  WRITE  (K,9) 

RETURN 

TR  =  3 

IF  (K  .  GE.  O)  WRITE  (K,  10) 
RET  U RN 

DEBUG  SU3CHK, SUBTRACE 
END 


SYMM 1 070 
SYMM  1080 
SYKM1090 
SYMM1 100 
S  Y  M  M  1  1 1  0 
S  YM M 1 120 
SYMM  1  130 


I-  HNC7J  )N  T  A  H  1 


412 


c 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PtJR  COSH 

to  look 


UP  AND  INTERPOLATE  A  ON E- DI M ENS ION  A L  TABLE. 


AUTHOR 

JOHN  RAiMSDEN,  DEPARTMENT  OF 
EDMONTON,  ALBERTA,  CANADA. 


GEOLOGY,  UNIVERSITY  OP  ALBERTA, 


DA' 


1  JULY  1974 


USAGE 

Y  =  T  AB  1  (X  ,  A  ,  B,  N) 


PA  R AMETERS 


X 

A 

B 

N 

TA  [31 


THE 

THE 


TABLE 

TABLE 


IN  WHICH  X 


GIVEN  VALUE  WITH  WHICH  TO  ENTFR 
VECTOR  CONTAINING  T  FI  E  COLUMN  OF 
BE  POUND. 

VECTOR  CONTAINING  THE  COLUMN  OF 
VALUE  IS  TO  BE  OBTAINED. 

NUMBER  OP  ROWS  (ENTRIES)  IN  THE  TABLE. 

THE  VALUE  OF  THE  FUNCTION  IS  THE  VALUE  OBTAINED  FROM 
TABLE. 


THE  TABLE  FROM  WHICH 


REMARKS 

IF  X  IS 
EX  THEM  E 

SUBROUTINES 

NONE 


BEYOND  THE 
VALUE  OF  B 


RANGE  OF  THE  TABLE  THE  RETURNED  VALUE 
IN  THE  TABLE. 


AND  FUNCTION  SUBPROGRAMS  REQUIRED 


FUNCTION  TAB1  (X , A,  B,  N) 

REAL  A  (N)  ,  B  (N) 

IK  ( X . LE . A  (1 ) ) GOTO200 
IF  (  X  .  G E .  A  (N)  )  GOTO300 
J=1 

ICO  IF  (X-A  (J)  )  120,  140,  160 

120  TAB1-B  (J-  1)  ♦  (D  (J)-B  (J-1))  *  (X-A(J-I)  )/(A  (J)  -  A  (J-1)) 

PE  TURN 

140  TAI31  =  P(J) 

RETURN 
160  J=J  +  1 
GOTO  100 
200  T A  13 1  =  B  ( 1 ) 

RETURN 

300  TA  B 1  =1)  (N  ) 

RETURN 

END 


T  A  B  1 

10 

TALI 

20 
3  0 

T  A  B  1 

40 

TA  HI 

50 

TA  Ii  1 

6  0 

TA  M 

7  0 

TAPI 

80 

T  A  B  1 

90 

'A, 

T  A  Li  1 

100 

TAB  1 

110 

T  A  B  1 

120 

TAB  1 

130 

T  A  B  1 

140 

TAB  1 

15C 

TA  B  1 

160 

T  A  O  1 

170 

T  A  B  1 

180 

TA  B  1 

190 

T  A  E  1 

200 

IS  TO 

T  A  B  1 

210 

TAPI 

22  0 

RETURN EDTAB1 

23  0 

TAB  1 

240 

T  Ad  1 

250 

THE 

TAPI 

260 

TALI 

270 

T  A  B  1 

280 

T  A  B  1 

290 

IS  THE 

TALI 

.300 

T  A  B  1 

310 

T  A  B  1 

320 

T  A  B  1 

330 

T  A  B  1 

340 

T  A  B  1 

350 

TALI 

060 

37  0 

TALI 

380 

TA  LI 

390 

TALI 

400 

* 

TALI 

410 

TALI 

420 

T  A  B  1 

430 

TA  P.1 

440 

T  A  B  1 

450 

TALI 

46  0 

TAB  1 

470 

TAB  1 

480 

TAB  1 

490 

T  A  B  1 

500 

T  A  B  1 

510 

T  A  B  1 

520 

T  A  B 1 

530 

TAB  1 

540 

T  A  B  1 

550 

41 3 


c 

c 

r. 

t: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


.'iUHI'OIlT  ]  N  13  T  l>  X  y  KQ 


PIJ  RPO.RE 

•TO.  CONVERT  A  DIRECTION  GIVEN 
ON  AN  EQUAL-AREA  PROJECTION. 


AS  TREND  AND  PLUNGE  TO  COORDINATES 


AUTHOR 

JOHN  RAMS  DEN,  DEPARTMENT  OF  GEOLOGY,  UNIVERSITY  OF  ALBERTA 
EDMONTON,  ALBERTA,  CANADA.  ' 


DATE 

1  OCTOBER  1974 


C  USAGE 

C  CALL  TPXYEQ  (T, P,J 1 , RA, XP, YP,J2,N, IER) 


C  DESCRIPTION  OF  PARAMETERS 


c 

T,  P 

VECTORS  OF  TRENDS  AND  PLUNGES. 

c 

Jl 

INPUT  PARAMETER;  J  J 1 |  -SPACING  OF  INPUT  WORDS  IN 

c 

J1<0  IF  INPUT  UNITS 

ARE 

DEGREES 

c 

J1>0  IF  INPUT  UNITS 

ARE 

RADIANS 

c 

RA 

RADIUS  OF  PROJECTION. 

c 

XP,  YP 

VECTORS  OF  COORDINATES  ON  PROJECTION. 

c 

J2 

SPACING  OF  OUTPUT  WOPDS  IN  XP,  YP. 

c 

N 

NUMBER  OF  POINTS  GIVEN. 

c 

IER 

ERROR  CODE:  0  NO  ERROR. 

C  2  EITHER  J1  OP  J2  WAS  ZERO. 

C 

C  METHOD 

C  THE  PROJECTION  IS  LAMBERT'S  EQUAL-AREA  PROJECTION  AND  IS 

C  HORIZONTAL.  THE  XP  AXIS  IS  EAST;  THE  YP  AXIS  IS  NORTH.  TREND 

C  IS  MEASURED  CLOCKWISE  FROM  NORTH. 

C 

C  REMARKS  • 

C  XP  AND  YP  MAY  OCCUPY  THE  SAME  LOCATIONS  AS  T  AND  P  PROVIDED 

C  J2  IS  NOT  GREATER  THAN  Jl.  OTHERWISE  THE  INPUT  VECTORS  ARE  NOT 

C  DESTROYED. 

C  MINIMUM  SIZE  FOR  THE  OUTPUT  VECTORS  XP  AND  YP  IS  J2*N. 

C 

C  SUBPROGRAMS  REQUIRED 
C  NONE. 

C 

c  . 

c 

c 


SUBROUTINE  TP  X  Y  EQ  {T  ,  P  ,  J  1 ,  R  A  ,  X  P  ,  YP  ,  J2  ,  N ,  IE  R) 

LOG IC  A  L*  1  RADIAN 

REAL  T  (1  )  ,P  (1)  ,  XP  (1)  ,  YP  (1 ) 

RADIAN  =  .TRUE. 

I K  R  ~  0 

IF (Jl . EQ.O.OR. J2. EQ.O) GOTO200 
JJ  1  -  J  1 

IF  (J Jl . G T . 0 ) GOTO30 
RA  D  T  A  N  =. FALSE. 

J J 1 =  -JJl 


T  P  X  E  1  0 
.  TPXE  20 
TPXK  n 
TPXE  4 0 
TPXE  SO 
P  X  E  6  0 
TPXE  7i) 
TPXE  80 
TPXE  90 
TPXE  100 
TPXE  110 
TPXE  120 
TPXE  130 
TPXE  140 
TPXE  150 
TPXE  16  n 
TPXE  170 
TPXE  180 
TPXE  190 
TPXE  200 
TPXE  210 
TPXE  220 
TPXE  230 
TPXE  240 
TPXE  25C 
TPXE  260 
TPXE  270 
TPXE  280 
TPXE  290 
TPXE  300 
T  n  X  E  31 0 
TPXE  320 
TPXE  33R 
TPXE  34C 
TPXE  350 
TPXE  36  0 
TPXE  370 
TPXE  380 
TPXE  39  0 
TPXE  400 
TPXE  410 
TPXE  420 
TPXE  430 
TPXE  440 
TPXE  450 
TPXE  460 
TPXE  470 
TPXE  <480 
TPXE  490 
TPXE  500 
TPXE  510 
TPXE  529 
TPXE  530 
TPXE  540 
TPXE  550 
TPXE  560 
TPXE  570 
TPXE  580 
TPXE  590 
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.10  T  1  =  1  -iKJ  1 
12-=  1-J  2 

no  iro  i-i,n 
ii  ih.mi 

12- ■  n:  *  ,j2 

T  I  -  T  (  1  1 ) 

pi  p (r  i) 

IF  (PAD  IAN)  GOTO 'in 
TI =TI* 1. 7  4  5  129K-2 
PI=PT*1.745329E-2 
50  S=RA*S«RT(1 . 0-SIN  (PI)  ) 
XP  (12)  =S*SIN  (TI) 

YP  (  12)  =S*COS  (TI) 

100  CONTINUp 
RETURN 
200  I E  R  =  2 
RETURN 
END 


1'PXK  (.00 
TI'XK  i.IO 
'IPX  K  O2  0 
PX  K  t><9 
TP  X K  1.4  0 
T  P  X  E  6  5  0 
T  PX  E  65.) 
TPXE  070 
TPXE  680 
TPXE  690 
TPXE  700 
TPXE  710 
TPXE  720 
TPXE  730 
TPXE  740 
TPXE  750 
TPXE  760 
TPXE  770 


n  r.  n 
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c 
c 
c 
c 
c 

C  PURPOSE 


SUBROUTINE  V  R  M  1 


C 

c 

c 


TO  RETURN  THE  ROTATION  MATRIX  THAT  WILL  ROTATE 
TO  THE  VERTICAL. 


C 

C  AUTHOR 

C  JOHN  RAMSDKN,  DEPARTMENT  OP  GEOLOGY 

C  EDMONTON,  ALBERTA,  CANADA. 

C 

C  DATE 

C  1  JULY  197 '4 

USA  0  B 

CALL  V  RM 1  ( V , M , J ) 

C 

C  PARAMETERS 

C  V  VECTOR  OK  LENGTH  2  OF  3  -  SEE  J. 

C  M  RETURNED  ROTATION  MATRIX. 

C  J  =1  IF  V  (  1 )  , V  ( 2 )  CONTAIN  TREND  AND 

C 
C 


V  R  M  1  10 

. V  R  M  1  2  0 

V  RM  1  3  0 

V  R  M  1  U  0 

V  R  M  1  50 

V  P  M  1  6  0 

A  GIVEN  DIRECTION  VRM1  70 

VRM1  B0 

V  R  M  1  90 

V  R  M  1  100 

V  R  M  1  110 

UNIVERSITY  OF  ALBERTA,  VHM1  120 

V  R  M  1  13  0 

V  R  M 1  140 

V  R  M 1  150 

V  RM  1  160 

V  R  M  1  17  0 

V  R  M  1  180 
VP  Ml  190 
V R  M  1  200 

V  R  M  1  210 

VIM  1  220 

V  R  K 1  230 

V  R  M 1  24  0 
Vi;  Ml  2  50 

V  R  M  1  26  0 

V  R  M 1  27  0 

V  R  M 1  28  0 

V  P  M  1  290 
vnm  30 c 

V  R  M 1  310 
VI!  Ml  320 

V  R  M 1  3  3  0 

V  P  M 1  340 

V  R  M  1  350 

V  R  M  1  360 
VI' Ml  37  0 
VRM1  380 
VP  Ml  390 

V  ft  M  1  40  0 

V  It  M  1  4  1 C 
VP  Ml  420 
Vlt.MI  4  30 

V  R  M  1  44  0 

V  R  M  1  4  50 
VP  Ml  46  0 

V  RM  1  47  0 

V  R  M  1  4  8  0 

V  R  M 1  490 
VP  Ml  500 

V  R  M  1  510 

V  R  M  1  520 

V  R  M 1  530 

V  R  M  1  540 

V  R  M 1  550 


PLUNGE  IN  DEGREES 

=2  IF  V (1) ,V (2)  CONTAIN  TREND  AND  PLUNGE  IN  RADIANS 
=  3  IF  V  (  1)  ,  V  (2)  ,  V  (3)  CONTAIN  DIRECTION  COSINES 
C 

C  METHOD 

C  THE  'TREND  AND  PLUNGE  OF  THE  AXIS  OF  ROTATION  AND  THE  ANGLE  OF 

C  ROTATION  ARE  COMPUTED,  AND  THE  SUBROUTINE  "ROTMAT"  IS  CALLED. 

C 

C  SUBROUTINES  REQUIRED 

C  SUBROUTINES  "RTSL>»  AND  "ROTMAT"  FROM  JR  SUBROUTINE  LIBRARY. 

C 

c 

c  . . 

c 

.SUBROUTINE  V  R  M  1  (V,M,J) 

REAL  V  (3)  ,  M  (9) 

C 

GOTO  (1  )0,200,300)  ,J 
100  TR--V  (1  )  *  1 . 7 4 5 3 2 9 E -  2 
PL- V  (2)  *1  .  745  )  2  9  L -  2 
GO  FO4  00 
20  0  T .1  V  ( 1 ) 

PL=  V  (2 ) 

GO 'TO  4  rrj 

300  CALL  RTSP(V  (1)  ,V  (2)  ,V  (3)  ,  1,TR,PL,  R,-1,**1,  1) 

400  TAX =TR+ 1 . 570796 
P  A  X  =  C  .  0 

A  R  =  P  L - 1  .  570796 

CALL  ROTMAT  (TAX, PAX, AR,M) 

RETURN 

DEBUG  SUBTRACE, SUBCHK 
END 


“ 

oonnnnnnnnoonnnoonnonononnonnnnnonnno 
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SUBROUTINE  URITEK 
PUR ROSE 

TO  WRITE  A  SET  OF  HALFWORD  INTEGERS  IN  A  SPECIAL  FORMAT 
A  IJTHOn 

.JOHN  RAMS  DEN 


DEPT  OF  GEOLOGY  UNIVERSITY  OF  ALBERTA 


DATE  WRITTEN 
MARCH  1974 


C 


USAGE 

CALL  WRITER  ( IOU , T IT  L  E,  LENFIL,  L  ENK  EY  ,  K  E Y) 

DESCRIPTION  OF  PARAMETERS 

10IJ  I/O  UNIT  TO  BE  WRITTEN  ON 

TITLE  120- BYTE  TITLE 

LENFIL  STZE  OF  UNIVERSE  TO  WHICH  THE  SET  BELONGS 
LFNKEY  SIZE  OF  SET 
KEY  .  SET 

FORMAT  OF  OUTPUT 

ALL  OUTPUT  RECORDS  ARE  80  BYTES  LONG  AND  HAVE  A  SEQUENCE  NUMBER  ' 
COLUMNS  78-80.  THE  FIRST  RECORD  CONTAINS  THE  FIRST  72  BYTES  OF 
'TITLE'  IN  COLUMNS  1-72.  THE  SECOND  RECORD  CONTAINS  THE  LAST  48 
BYTES  OF  'TITLE*  IN  COLUMNS  1-48,  'LENFIL'  IN  COLUMNS  53-56,  AND 
'LENKEY'  IN  COLUMNS  61-64.  ALL  SUBSEQUENT  RECORDS  CONTAIN  18 
NUMBERS  FROM  THE  SET  IN  COLUMNS  1-72. 

SUBROUTINES  REQUIRED 
NONE 


SUB  ROUT  I  N  E  WRTTEK  ( I  OU  ,  T  IT  LE,  LENFIL,  I.ENKEY  ,  KEY) 

1  FORMAT (18 A4,7X 1 ') 

2  FORMAT  ( 1 2  A  4 , 4  X , I  4 , 4  X , I  4 , 1 5  X , ' 2 ' ) 

3  FORM  AT  (  1  8  1  4  ,  r.X  ,  I  3) 

INTEGFR  TITLE  (30) 

INTEGER* 2  KEY (5018) 

WRITE  (IOU,1)  (TITLE  (I)  ,1  =  1,18) 

W R  I T E  ( I O U  ,  2)  (TITLE  (I)  ,1  =  19,30),  LENFIL  ,LEN KEY 
IF (LENKEY. EQ.O ) RETURN 

KA  =  LEN  KE Y +  1 
KB=LENKEY+10 
DO  IOC  I = K  A , K  B 
100  KEY  (I )  =0 

K  A  =  1 
K  B  =  1  B 
N=  3 

200  WRITE(IOU,  3)  (KEY(I),I  =  KA,KB),N 
K  A  '  K  A  +  1  8 

IF (KA. GT. LENKEY) RETURN 
K  8  K  H  +  1  8 
N=-  N  +  1 
GOTO  200 

KN  D 


10 

20 

WRTK 

30 

WRTK 

40 

WRTK 

50 

WPTK 

6  0 

WPTK 

70 

WRTK 

80 

W  R.  T  K 

90 

WRTK 

100 

WRTK 

110 

WRTK 

12  0 

WRTK 

130 

WRTK 

140 

W  RTK 

150 

WRTK 

16  0 

W  R  T  K 

170 

WPTK 

180 

WRTK 

190 

WPTK 

200 

WPTK 

210 

W  R  T  K 

220 

WRTK 

230 

WRTK 

24  0 

W  RTK 

25C 

1  W  RTK 

260 

WRTK 

270 

WRTK 

280 

WRTK 

290 

W  RTK 

300 

WRTK 

310 

WRTK 

320 

WRTK 

330 

WRTK 

340 

WRTK 

350 

WRTK 

360 

WPTK 

.37  0 

WRTK 

38  0 

WRTK 

39  0 

WRTK 

400 

WRTK 

410 

WRTK 

420 

W  R  T  K 

410 

W  R  T  K 
W  R  T  K 
W  RTK 
W  R  T  K 
W  RTK 
W  R  T  K 
WRTK 
WPTK 
WRTK 
W  RTK 
WPTK 
W  RTK 
WRTK 
WRTK 
WRTK 
WRTK 
W  RTK 
WRTK 
WRTK 
WRTK 
W  R  T  K 
WRTK 
WRTK 


44  0 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
60  0 
610 
620 
6  30 
640 
650 
660 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUB  POUTIN' E  XKF 
PURPOSE 

•  mTSSt  "***»"«'  ™'  "*«*«•*  distribution 

VECTORS  A»i)  '  I  \!>  nii'.  LENGTH  O?  THE  HESUET/lUT  OF  A  SET  OF 
ECTORS  AND  _>  L>  1  11 E  SUM  OF  THE  LENGTHS  OF  THE  VECTORS. 

A  (I  THOR 

ueolog’!'  univeesity  °r  »“««• 


DATE 

1  JULY  1974 
USAGE 

CALL  XKF  (R,N,AK,TE) 

:  DESCRIPTION  OF  PARAMETERS 


R 

N 

AK 

IE 


PROPORTIONAL  LENGTH  OF  RESULTANT  =Q/S 
NUMBER  OF  VECTORS  IN  SET 
ESTIMATED  CONCENTRATION  PARAMETER 
ERROR  CODE: 

0  NO  ERROR 

1  R  OUTSIDE  RANGE  0  TO  1.  AK  SET  TO  0.0. 

METHOD 

THE  TABLE  GIVEN  BY  MARDIA  (1972, P.322)  IS  USED  TO  OBTAIN  AK  IF 
RO.9,  OTHERWISE  THE  ESTIMATE  (1-2/N)  /  (1 -R)  IS  USED. 

SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
FUNCTION  "TAB  1 "  FROM  JR  SUBROUTINE  LIBRARY. 

REFERENCE 

MARDIA,  K.  V.  1972.  STATISTICS  OF  DIRECTIONAL  DATA.  LONDON  fi  NEW 
YORK,  ACADEMIC  PRESS.  357PP. 


SIJ  UROIJT  I  N  R 
REAL  T  A  I  i  R  ( ' 

.  i ) , .  1 4 , .  r 
.29,  .  30, 
.45,  .4  6, 
.61, .62, 
.77, .7  8, 
REAL 


3  1,..' 32, 

4  7  , .  4  0  , 

6  3, .  6  4  , 

7  9  ,  .  B  0  , 


1 A  BK  (90)  /0  .  0 


N, 

A  K  ,  I  i. ) 

9  • 

Cl , . 02 

,.0  1 

,  .05 

,  .06 

,  .07 

X 

o 

• 

,  .09 

17 

0  « 

,18,. 

19,  . 

20,  . 

2  1,. 

22,. 

23,. 

24,  . 

2  5,  . 

3  3 

9  « 

,  3  4  ,  . 

15,  . 

36,  . 

3  7,. 

38,. 

39,. 

4  C  ,  . 

41,. 

4  9 

9  « 

,50,. 

51,. 

r,R 

*-  9  • 

5  3,  . 

5*,. 

5  5,. 

•56,. 

57,. 

6  5 

9  * 

>()(),• 

6  7,. 

6  8,  . 

6  9,. 

70,. 

71 

7  2, . 

73,. 

8  1 

9  • 

'  '  f  • 

8  3,  . 

84  ,  . 

85,  . 

86,  . 

87,  . 

8  8,  . 

8  9/ 

,0 

,C 

13  ,  .0b001 

,  .OR 

0  0  5  , 

.12012,. 

15C23, .  1 

10 


26  , 
42, 


74 


* .240  93  , .  27  1  32  , .  30  182, .  332  42, .  363  1  0, .  3  94  02, .  4  2  903, .45621  ,  . 
*. 5 1  PC  9, .  550  33,  .  5  82  7  8, .  6  1 4 9 7 , .  6474 0  , . 6 8009  , .  7  1  30 6  ,  .  74 6 32  ,  . 
* .8  1  3  8  1  , .  8 4  806, .  88269  , .  9  177  1  , .  953  1  5, .  98902,  1  .0  2536,  1 . 062  1  8 
*  1  .  1  3  7  39,  1  .  1  75  84,  1. 2  1490,  1  .25459,  1  .  29497, 1  .  33605,  1  .  377B9,  1 
*1  .  4b4  0  1  ,  1 .50839, 1  .  55372, 1 . 60005,  1 . 64745,  1  .  69599,  1 .74573, 1 
«  1  .  1)4  9  1  5,  1.9  0  3C0,  1.9  584  2,2.01550,2.074  37,2.  1  3515,2.  19799,2 
*2.3  3049,2.  40050,2.  4  733  1,2.549  14, 2.  62  825,  2.7  10  9  3,  2.79751,2 
*2.  98  38  9, 3. 0845 o,  3.  1  9091, 3. 3 03 54, 3. 42314, 3. 55051, 3. 68655, 3 
*3. 9 8 90 5, 4. 15 8 19, 4. 34143, 4. 54 07 6, 4. 758 57, 4. 9 9772, 5. 26167, 5 


, . 1  1, .  12, 

2  7 ,  .  2  >3  , 

43. . 44, 

59. . 60, 

75. .  76, 

,.21062, 

48756, 

77990, 

,1.09951, 

. 42C53, 

.79678, 

. 26304, 
.88836, 
.83232, 
.55463, 


XKF 
.XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
X  K  F 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XK  F 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
X  K  F 
XKF 
XKF 
XKF 
XKF 
XKF 
XKE' 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKF 
XKE 
XKF 
XKF 
XKF 
XKF 
XKE 
XKF 
XKF 


1  0 

20 
30 
40 
50 
60 
70 
80 
9  0 
100 
110 
12  0 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 

2  3° 
24  p 
250 
260 
27  0 
280 
290 

3  C  0 
310 
320 

3  3  0 
340 
350 
360 
370 

38Q 

390 

400 

410 

420 

430 

440 

4  5C 
460 
470 
480 
490 
50  0 
510 
520 
530 
540 
550 
560 
570 
580 
590 


' 


418 


c 

c 


*5. 8  M  181,  6.24971, 


0.66662,7.14279,7.69228,8.33333,9.09091/ 


IF (R) 10, 20, 30 
10  IE=1 
20  AK=0.0 
GOTO90C 

30  TF (P-0.9) 40,50,50 
4  C  A  K  =  T A  0 1  (H ,T ABR,TAnK,9C) 
HO TO 900 

50  IF  (R- 1.0) 60,70,10 
60  AK  =  (1.0-2. 0/N )  / ( 1 . 0-R) 
GOTO9C0 
7  0  AK  =  1  .  0  E74 
900  RETURN 

C  DEBUG  SUBTRACE, SUBCHK 

FN  D 


XKF  600 
X  K  F  610 
XKF  620 
XKF  630 
XKF  640 
XKF  650 
XKF  660 
XKF  670 
XKF  68C 
XKF  690 
XKF  700 
XKF  710 
XKF  720 
XKF  730 
XKF  740 
XKF  750 
XKF  760 


n  r. 


41 9 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

G 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

G 

c 

c 

G 

c 

c 

c 

G 

c 

c 


FUNG  HON  X  K  1  . 

PURPOSE 

VALUF  OF  (J  =  ni/Tn  ( t\  wn- J!.  "ASL  1  EN  U1'  THS  SMALLEST  EIGEN- 

DATA  CROSS  PRODUCT  MAT  RIX !  *  ^  “  *“*  ™C*  °F  T  *«■>  I  »  THE 

AUTHOR 

JOHN-  PAMSDFN,  DEPARTMENT  OF  GEOLOGY,  UNIVERSITY  OF  ALBERTA 
EDMONTON,  ALBERTA,  GANADA.  1  ALBERTA' 


DATE 

1  JULY  1974 

USAGE 

XK  =  XK1  (X) 

PARAMETERS 

X  THE  SMALLEST  EIGENVALUE  OF  (J-T/TR(T) 

XK1  THE  VALUE  OF  THE  FUNCTION  IS  THE  ESTIMATED  CONCENTRATION 
PARAMETER. 

METHOD 

TABLE  LOOKUP  IF  0 . 0 5< X < 0 . 3 2 ;  TABLE  FROM  MARDIA,  1972,  P  323 
OTHERWISE  FORMULAS  GIVEN  BY  MARDIA  (1972,  P.254)  ARE  USED.  * 

SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
FUNCTION  "TAB1"  FROM  JR  SUBROUTINE  LIBRARY. 

REFERENCE 

MARDIA,  K.  V.,  1972,  STATISTICS  OF  DIRECTIONAL  DATA.  LONDON  AND 

NEW  YORK,  ACADEMIC  PRESS.  357PP. 


FUNCTION  X  K  1  ( X ) 

REAL  9  ( 5  5 )  / .  0  5  , .  0  r'  5  ,  ,  Q  6  ,  .  0  6  5 ,  .  0  7 ,  .  0  7  5  ,  .  0  8 ,  ,  0  8  5  ,  .  C  9  ,  .  Q  9  5 ,  .  1  ,  .  1  0  5  , 

*.  1  1,  .  1  15,  .  12,  .  125,  .  13,  .  135,  .  14,  .  145,  .  15,.  155,  .  If,,  .  IB 5,.  17,.  175, 
*.1B,. IB 5,.  19,.  19 5, .2, .205, .21, .215, .  2 2, .22 5, .2 3, .235, .24,.  24 5,. 25 
*  •  ^  J  »  •  2d,  .20  27  5, .28, .2  85,  ,29  ,  .295, .3,,  )05,,  31,.  315, ,32/ 

REAL  K( 5 5 )/9.c 9, 9. 09, 8. 33, 7. 6 8, 7, 13, 6, 64, 6. 22, 5. 84, 5, 50,5.19, 4, 91 
*4.  65,4.41,4.20,3.  ‘>9, 3. 80, 3. 62, 3. 46, 3. 30, 3.  15, 3. 0  1, 2. 87, 2.  7  4, 2. 6  2, 
*2.50,2.39,2.28,2. 17, 2. 07, 1.97,1. R7, 1.78, 1.69, 1.61,1.52, 1.44,1.36, 
*1.28, 1.2 0,1. 13, 1.0 5, ,98, .91, .84,. 77, ,71, .64, .58, .51, .45, .39, .33, 

* .27 , .2 1 , . 15/ 

IF (X.GT. 0.320) GOTO200 
IF(X.LT. 0.050) GOTO300 

XK 1 =-T AB 1  (X,U, K,49) 

RETURN 

200  XK1=-(15.0-45.0*X)/4.0 

RETURN 

300  XK  1=-1.0/(2.0*X) 

RETURN 

DEBUG  SUBTRACE, SUHCHK 
END 


XK  1 

19 

.  XK  1 

2  9 

X  K  1 

3  9 

XK  1 

40 

XK  1 

50 

XK  1 

60 

X  K  1 

70 

XK  1 

80 

XK  1 

90 

XK  1 

100 

XK  1 

1  10 

XK  1 

120 

XK  1 

130 

XK  1 

140 

XK  1 

150 

XK  1 

169 

XK  1 

170 

XK  1 

180 

XK  1 

190 

XK  1 

20  0 

XK  1 

210 

XK  1 

220 

XK  1 

23p 

X  K  1 

240 

XK  1 

25  0 

XK  1 

26  0 

XK  1 

27  0 

XK  1 

280 

XK  1 

290 

XK  1 

300 

XK  1 

310 

XK  1 

320 

XK  1 

330 

XK  1 

340 

XK  1 

350 

XK  1 

36  0 

XK  1 

370 

X  K  1 

380 

,  XK  1 

390 

XK  1 

400 

XK  1 

410 

XK  1 

420 

X  K  1 

4  30 

,  XK  1 

440 

XK  1 

450 

,  X  K  1 

460 

XK  1 

470 

XK  1 

480 

XK  1 

490 

X  K  1 

50  0 

XK  1 

510 

XK  1 

520 

XK  1 

53  0 

XK  1 

54.0 

XK  1 

550 

XK  1 

560 

XK  1 

57  0 

XK  1 

580 

XK  1 

590 

XK  1 

600 

XK  1 

61  0 

XK  1 

620 

X  K  1 

63  0 

XK  1 

640 

XK  1 

650 

■ 
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c 

c 

c 

c 

c 

c 

c 

c 

r 

e 

c 

c 
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c 

c 

c 

c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

•c 

c 
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c 
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c 

c 
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c 

c 
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c 
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FUNCTION  XK3 
PURPOSE 

TO  ESTIMATE  THE  CONCENTPATION 
DISTRIBUTION  FOR  THF  BIPOLAR 
VALUE  OF  THE  MATRIX  U^T/TR(T) 
T  IS  THE  CROSS  PRODUCT  MATRIX 


PARAMETER  OF  DIM  ROT U- WA TSON 1 S 
CASE  GIVEN  UR,  THE  LARGEST  EIGEN- 
WHERE  T  R  (T)  IS  THE  TRACE  OF  T  AND 
REPRESENTING  THE  SET  OF  AXES. 


AUTHOR 

JOHN  RAMSDEN,  DEPARTMENT  OF 
EDMONTON,  ALBERTA,  CANADA. 

DAT  F 


GEOLOGY,  UNIVERSITY  OF  ALBERTA, 


1  JULY  1974 

USA  G  E 

XK  -  X K  3  (X) 

PARAMETERS 

X  THE  LARGEST  EIGENVALUE  OF 
XK 3  THE  VALUE  OF  THE  FUNCTION 
PARAMETER 


U  =  T/T  R  (T) 

IS  THE  COMPUTED 


CONCENTRATION 


METHOD 

TABLE  LOOKUP 
OTHERWISE  BY 


IF  0. 3 5 1 < X <0 .  948 ; 
FORMULAS  GIVEN  BY 


TABLE  FROM  MARDIA  (1972, 
MARDIA  (1972,  P.254). 


P. 324) 


SUBROUT  IN  ES 
NONE 


AND  FUNCTION  SUBPROGRAMS  REQUIRED 


REFERENCE 

MARDIA,  K.  V.  1972.  STATISTICS 
YORK,  ACADEMIC  PRESS.  3S7PP. 


OF  DIRECTIONAL  DATA.  LONDON  AND 


XK  3 

10 

.  XK  3 

20 

X  K  3 

30 

XK  3 

40 

XK  3 

50 

XK  3 

60 

X  K  3 

70 

XK  3 

80 

X  K  3 

Q  0 

XK  3 

100 

X  K  3 

110 

X  K  3 

120 

X  K  3 

130 

X  K  3 

140 

XK  3 

150 

X  K  3 

160 

X  K  3 

170 

XK3 

180 

y  k  3 

190 

X  K  3 

2C0 

XK3 

210 

X  K  3 

220 

X  K  3 

23  0 

XK  3 

240 

X  K  3 

250 

X  K  3 

26  0 

X  K  3 

270 

X  K  3 

280 

X  K  3 

290 

XK3 

300 

XK  3 

31  0 

XK  3 

320 

X  K  3 

330 

XK  3 

340 

X  K  3 

350 

XK  3 

360 

X  K  3 

370 

X  K  3 

380 

X  K  3 

39  0 

X  K  3 

no 

99  J=1 

100  IF  (X-IJ  (J)  )  120,  140,160 

120  XK  3  =  K  (J-  1)  +.(K  (J)  -K  (J-1)  )  *  (X-U  (J-1)  )  /  (U  (J)  -U  (J-1)  ) 
RETURN 
140  XK  3  (J) 

RETU RN 
160  J---J  +  1 
GOTO  no 

2 C 0  XK3  -  (4  5.0*X-15.0)/4.0 
RET  UP  N 

300  XK3=1.O/(1.0-X) 

RETURN 

DEBUG  SUBTRACE,  SUBCIIK 
END 


X  K  3  410 

.  531  , .  551  , XK3  420 
743, .  754,  X K  3  430 

903,  .912,  X K  3  440 

X  K  3  4  50 

8, 3.0,3. 2, XK3  460 
8.0,8. 5,  X  K  3  470 

X  K  3  480 

X  K  3  490 

X  K  3  50  0 

X  K  3  51.0 

X  K  3  520 

X  K  3  53  0 

X K  3  540 

XK  3  550 

X  K  3  56  0 

X  K  3  57  0 

X  K  3  580 

X  K  3  590 

X  K 3  600 

X  K  3  610 

X  K  3  620 

X  K  3  6  30 

XK  3  640 

X  K  3  6  50 

X K  3  660 

X  K  3  670 


' 
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FUNCTION  XK3 


c 

c 


PUP  POO R 

TO  ESTIMATE  THE  CONCENTRATION  PARAMETER  OF  DINROTH- WATSON  •  S 

P  mrin  DTVF„Bi^LAR  CASE  G 1  V  E  N  U  ^ '  T 11 E  LARGEST  E IGEN- 

IS  Til*  CROSS  pi  ,1T/TR(T)  WHERE  TR(T)  IS  THE  TRACE  OF  T  AND 
IS  THE  CROSS  PRODUCT  MATRIX  REPRESENTING  THE  SET  OF  AXES. 


DISTRIBUTION 
VALUE  OF 
T 


AUTHOR 


0F  GE0L0GJ-  #*w*mi»¥  or  albebta, 

EDMONTON ,  ALBERT  A ,  CANADA. 


DATE 

1  JULY  1974 

USA  G  E 

XK  =  XK3  (X) 

PARAMETERS 

X  THE  LARGEST  EIGENVALUE  OF  U  =  T/TR(T) 

XK 1  THE  VALUE  OF  THE  FUNCTION  IS  THE  COMPUTED  CONCENTRATION 
PARAMETER 

METHOD 

TABLE  LOOKUP  IF  0 . 3 5 1 < X <0 . 9 4 8 ;  TABLE  FROM  MARDIA  (1972,  P.324). 
OTHERWISE  BY  FORMULAS  GIVEN  13  Y  MARDIA  (1972,  P.254). 

SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 

REFERENCE 

MARDIA,  K.  V.  1972.  STATISTICS  OF  DIRECTIONAL  DATA.  LONDON  AND  N1 
YORK,  ACADEMIC  PRESS.  357PP. 


FUNCTION  X  K  3  ( X ) 


RE 'A  L 

U  (4  5)/ 

.  3  51, 

.  3  70 

,  .  389 

r  • 

4  C  4  , 

.  429, 

.  450 

*.571, 

.  590,  . 

6  08,. 

6  2  6, 

.  6  4  3, 

.660,. 

6  7  6,. 

6  90, 

*.764, 

. 788, . 

80  8  ,  . 

82  5, 

.  839, 

.  8 

51,. 

8  6  2  ,. 

871, 

*  .  9  1  ci , 

.  925,  . 

9  30  ,  . 

9  3  5 , 

.  939, 

. 942, . 

946  ,  . 

948/ 

REAL 

K  (4  5)/ 

.  2  ,  .  4 

,  .  6  , 

.8,1. 

,  1 

.  2,1 

.4,1. 

6,1. 

*3.  4,  3 

.6,3.8 

,9.0, 

4.2, 

4.4,4 

.  6 

,4  .  R 

,5.0, 

5.5,i 

*  9  .  n  ,  9 

.5,10. 

0,11. 

,12. 

,13., 

1  4 

.  ,  15 

.  ,  16. 

,  17. 

' ,  .  4  91, .  51  1  , .531,  .551 
.  718,  .731, .  743, .  754, 
. 8P6, . 892, .903, .912, 

,2. 4, 2. 6, 2. 8, 3.0,3. 2 
.5, 7. 0,7. 5, 8. 0,8. 5, 

19. ,20./ 


IF (X.LT. 0.351) GOTO200 
IF (X . GT. 0. 94R)  GOTO  3 00 


9  9  J  =  1 

100  IF  (X-U  (J) )  120,  140,1  60 

120  XK  1  =  K  (J-  1)  +.(K  (J)  -K  (J-1)  )  *  (X-U  (J-1)  )/  (U  (J)  -U  (J- 

RETURN 
1  40  XK  3  =  K  (J) 

R E  T  U RN 
160  J---.I  +  1 
GOTO  10  0 

200  X  K  3  -  (4  5 .  0  *  X  -  1  5 . 0 )  /4 . 0 
rkTut N 

300  XK3=1.0/(1.0-X) 

R M TURN 

DEBUG  SUBTRACE,  SUBCI1K 
END 


D  ) 


XK  3 

10 

20 

X  K  3 

30 

XK  3 

40 

X  K  3 

50 

XK  3 

60 

X  K  3 

70 

XK  3 

80 

X  K  3 

Q0 

XK  3 

100 

X  K  3 

110 

XK3 

120 

X  K  3 

130 

X  K  3 

140 

XK  3 

150 

X  K  3 

160 

X  K  3 

170 

XK3 

180 

X  K  3 

190 

XK  3 

'2C  0 

XK3 

210 

X  K  3 

220 

X  K  3 

23  0 

XK  3 

240 

X  K  3 

250 

X  K  3 

26  0 

XK  3 

270 

X  K  3 

2P0 

X  K  3 

290 

XK3 

300 

XK  3 

310 

XK  3 

320 

XK  3 

330 

XK  3 

340 

f  XK3 

350 

XK  3 

360 

X  K  3 

370 

X  K  3 

380 

XK3 

390 

X  K  3 

R00 

XK  3 

410 

,  X  K  3 

420 

X  K  3 

430 

XK  3 

440 

XK  3 

450 

X  K  3 

460 

X  K  3 

470 

X  K  3 

480 

X  K  3 

49  0 

X  K  3 

50  0 

X  K  3 

510 

XK  3 

520 

X  K  3 

53  0 

XK  3 

540 

XK3 

550 

XK  3 

560 

XK3 

570 

XK  3 

580 

X  K  3 

590 

X  K3 

600 

X  K  3 

610 

X  K  3 

620 

XK  3 

6  30 

XK  3 

64  0 

XK3 

650 

XK  3 

660 

X  K  3 

670 

421- 


Name 

Usage 

Action 

Name 

Usage 

Action 


Name 

Usage 

Action 


Name 

Usage 

Action 


Name 

Usage 

Action 


Name 

Usage 

Action 


Name 

Usage 

Action 


Documentation  of  System  Subroutines 
PLOTS 

CALL  PLOTS 

Initializes  plot  routines 
PLOT 

CALL  PLOT  (X, Y  ,  J) 

The  pen  is  moved  from  its  present  position  to  the 
point  X  ,  Y . 

J=2  pen  down 
J=3  pen  up 

J<0  redefine  plot  origin  as  X,Y. 

J=999  terminate  plot. 

SYMBOL 

CALL  SYMBOL  (X,Y,H,A,T,N) 

The  N  characters  stored  in  the  first  N  bytes  of 
the  array  A  are  drawn  with  a  height  H ,  starting  at 
the  point  X,Y  so  that  they  make  an  angle  T  degrees 
with  the  positive  X-axis. 

NUMBER 

CALL  NUMBER(X,Y,H,R,T,J) 

The  real  number  R  is  drawn  with  height  H  at  the 
point  X,Y  so  that  it  makes  an  angle  T  degrees  with 
the  positive  X-axis.  J  is  the  number  of  decimal 
places  required.. 

POLAR 

CALL  POLAR <R, THETA, N,K, J,RAD,  SCALE) 

A  series  of  N  points  whose  polar  coordinates  are 
stored  in  every  Kth  location,  starting  with  the 

first,  of  the  vectors  R  and  THETA  are  plotted  as 

points  if  J<0  or  connected  by  a  line  if  J>0-.  If 

RAD=0. 0,  SCALE  is  the  number  of  data  points  per 

inch.  If  RAD>0 . 0 ,  the  plot  is  scaled  so  that  the 
maximum  radius  of  the  plot  is  <=RAD„ 

URAND 
R=UR AND  (Z) 

The  value  of  the  function  is  a  random  number  on 
(0,1).  Z  is  initially  zero. 

WHERE 

CALL  WHERE  (X,Y,F) 

The  current  pen  position  is  returned  in  X,Y;  the 
current  multiplying  factor  is  returned  in  F. 


1 


Appendix  3 

Table  of  Density  Estimator  Data 


kp-50.0  n  =  50 


DISTANCE 

0.0 

5.0000 

10.0000 

15.0000 

20.0000 

25. 0000 

TRUE  DENSITY 
CONSTANT-AREA  A/2tT= 

50.0000 

2% 

41.3370 

23.3924 

9.1004 

2.4514 

0. 4618 

MAXIMUM 

39.0000 

34.0000 

28.0000 

19.0000 

9.0000 

5. 0000 

MI NI MUM 

23.0000 

19.0000 

12.0000 

5.0000 

2.0000 

0.0 

MEAN 

30.8000 

27.7200 

20.0800 

11.7200 

5.1000 

1 . 7800 

STD  DEV 

2.9966 

3.4643 

3.9530 

3.0973 

1.8434 

1.1480 

MEAN/TRUE 

0. 6160 

0.6706 

0.8584 

1.2879 

2.0804 

3. 8545 

SD/MEA  N 

0- 0973 

0.  1  250 

0. 1 969 

0.2643 

0.3615 

0. 6449 

LOG (MEAN/TRUE) 

-0-  2104 

-0. 1 735 

-0.0663 

0. 1 099 

0.3182 

0. 5860 

LOG (SD/MEAN) 
CONSTANT-AREA  A/2tt= 

-1.0119 

5% 

-0.9032 

-0.7058 

-0.5779 

-0.4420 

-0. 1905 

MAXIMUM 

2  0.,  0000 

19.2000 

17.6000 

14.4000 

10.0000 

4.8000 

MINI  HUM 

16.0000 

14.8000 

12.4000 

8.0000 

3. 6000 

1. 2000 

MEAN 

18. 4959 

17. 6479 

15.0879 

11.0719 

6.9040 

3.  3120 

STD  DEV 

0.8068 

0.8957 

1. 1 265 

1.4603 

1.2723 

0.  8361 

MEAN/TRUE 

0.3699 

0.4269 

0.6450 

1.2166 

2. 8163 

7.  1719 

SD/MEAN 

0. 0436 

0.0508 

0.0747 

0.1319 

0.  1 843 

0. 2524 

LOG (MEAN/TRUE) 

-0.  4319 

-0.3696 

-0.1904 

0.0852 

0.4497 

0. 8556 

LOG (SD/MEAN) 
CONSTANT-AREA  A/2tt= 

-1.3603 

1% 

-1.2945 

-1.1 269 

-0.8798 

-0.7345 

-0.5978 

MAXIMUM 

52.0000 

50.0000 

38.0000 

22.0000 

10.0000 

4.0000 

MINIMUM 

24.0000 

16.0000 

10.0000 

4.0000 

0.0 

0.0 

MEAN 

39.2000 

33.8000 

22.0000 

1  1.2000 

3.9000 

0. 9000 

STD  DEV 

6. 2000 

8.0000 

5.7000 

4.2000 

2. 6000 

1 .0000 

MEAN/TRUE 

0.7840 

0.8177 

0.  9405 

1.2307 

1. 5909 

1. 9489 

SD/MEAN 

0.1582 

0.2367 

0.2591 

0.3750 

0.6667 

1.1111 

LOG (MEAN/TRUE) 

-0.1057 

-0.0874 

-0 j  0  267 

0.0902 

0.2017 

0. 2898 

LOG (SD/MEAN) 
CONSTANT-AREA  KAMB 

-0.8009 

-0.  6258 

-0.5865 

-0.4260 

-0..  1761 

0. 0458 

MAXIMUM 

6«*  6000 

6.6000 

6.6000 

6.6000 

6.6000 

5.9000 

MINIMUM 

6.6000 

6.4000 

6.4000 

6.0000 

5.1 000 

4. 2000 

MEAN  ' 

6.  500  0 

6.5000 

6.5000 

6.3000 

5.9000 

4.9000 

STD  DEV 

0.0 

0.0 

0.0 

0.1000 

0.3000 

0. 4000 

MEAN/TRUE 

0.1300 

0. 1 572 

0.2779 

0.6923 

2.4068 

10. 61 07 

SD/MEAN 

0.0 

0.0 

0.0 

0.0159 

0. 0508 

0.0816 

LOG  (MEAN/TRUE) 

-0.8861 

-0.8034 

-0.5562 

-0.1597 

0.3814 

1. 0257 

LOG (SD/MEAN) 

-1 0.0000 

-10.0000 

-10.0000 

-1.7993 

-1.2937 

-1 . 0881 

4  24 


kp  =  50 . 0  n  =50 


DISTANCE 

0.0 

5.0000 

10.0000 

15.0000 

20.0000 

25. 0000 

TRUE  DENSITY 

CON  ST ANT- PRO PORTION 

50.0000 
V0  =  V7 

41.3370 

23.3924 

9.1004 

2.4514 

0.4618 

MAXIMUM 

40.7344 

42.2365 

28.3027 

17.5059 

10.2159 

6.2897 

MINIMUM 

23.7961 

19.5085 

12.9071 

8.6225 

6.0147 

3.9879 

MEAN 

34.2970 

29.9247 

19.7706 

11.7478 

7.3359 

4.9845 

STD  DEV 

5.6820 

5.5207 

4.0025 

1  .7890 

0.8770 

0. 5089 

MEAN/TRUE 

0.6859 

0.7239 

0.8452 

1.2909 

2.9925 

10. 7936 

SD/MEAN 

0.1657 

0.1845 

0.2024 

0.1523 

0. 1 195 

0. 1021 

LOG  (MEAN/TRUE) 

-0.  1637 

-0.1 403 

-0.0731 

0.1  109 

0. 4760 

1.0332 

LOG  (SD/MEAN) 
CONSTANT- PROPORTION 

-0.7808 

v0=i/io 

-0.7340 

-0.6937 

-0.8173 

-0.9225 

-0.9910 

MAXIMUM 

39.1884 

32.9485 

24.2390 

14.7109 

9.3088 

6. 3220 

MINIMUM 

1  8.0700 

16.0201 

11.6072 

8.5540 

5.9802 

4.4629 

MEAN 

28. 4677 

25.0931 

16.8483 

10.7388 

7.2438 

5.1890 

STD  DEV 

4. 5365 

3.9515 

2.6002 

1.2400 

0.7097 

0.  41  83 

MEAN/TRUE 

0.5694 

0.6070 

0. 7202 

1.1800 

2.9550 

11. 2365 

SD/MEAN 

0.1594 

0.1575 

0.1543 

0.1155 

0.0980 

0.0806 

LOG (MEAN/TRUE) 

-0.  2446 

-0.2168 

-0. 1 425 

0.0719 

0. 4706 

1 . 0506 

LOG  (SD/MEAN) 
CONSTANT- PROPORTION 

-0.7976 

V0 =1/20 

-0.8028 

-0.8115 

-0.9375 

-1.0089 

-1. 0936 

MAXIMUM 

27.0000 

23.2  328 

1 6.5194 

11.3215 

7. 6889 

5.  57  87 

MI  NIMUM 

1 2. 6346 

11.5730 

8.2574 

6.3011 

4.7125 

3. 6691 

MEAN 

20.2296 

17.0085 

12.0264 

8.3798 

6.1825 

4.6946 

STD  DEV 

3.1428 

2.4501 

1.8070 

1.0718 

0. 6639 

0.  4189 

MEAN/TRUE 

0.4046 

0.4115 

0.5141 

0.9208 

2.5220 

10. 1659 

SD/MEAN 

0„ 1554 

0.1441 

0.1 503 

0.1 279 

0.1074 

0. 0892 

LOG  (MEAN/TRUE) 

-0.3930 

-0.3857 

-0.2889 

-0.0358 

0. 4017 

1. 0071 

LOG  (SD/MEAN) 

CON  ST A NT- PRO  PORTION 

-0.8087 

Vo=1/3 

-0.8415 

-0.8232 

-0.8931 

-0.9691 

-1 . 0495 

MAXIMUM 

131.3000 

73.9000 

42.0000 

24.1000 

11.8000 

5. 4000 

MINIMUM 

21 . 5000 

16.4000 

16.2000 

7.3000 

4.1000 

2.4000 

MEAN 

50.5000 

40.0000 

24.9000 

12.4000 

6.0000 

3.4000 

STD  DEV 

20.0000 

12.8000 

8.4000 

3.9000 

1. 4000 

0. 5000 

MEAN/TRUE 

1.0100 

0.9677 

1.0644 

1.3626 

2.4476 

7. 3625 

SD/MEAN 

0.3960 

0.3200 

0.3373 

0.3145 

0.2333 

0.  1471 

LOG (MEAN/TRUE) 

0.0043 

-0.0143 

0.0271 

0.1344 

0. 3887 

0. 8670 

LOG (SD/MEAN) 

COM ST  A NT- PRO PORT ION 

-0.4023 

Vo  =V5 

-0.4948 

-0.4719 

-0.5024 

-0.6320 

-0. 8325 

MAXIMUM 

65.7000 

53.7  000 

37.0000 

19.6000 

9.8000 

6. 0000 

MINIMUM 

27.6000 

19.6000 

14.0000 

8.2000 

5.1000 

3. 6000 

MEAN 

42. 4000 

35.0000 

21.6000 

1  1.6000 

6.7000 

4. 3000 

STD  DEV 

8. 8000 

8.2000 

5. 1 000 

2.3000 

0.9000 

0.  5000 

MEAN/TRUE 

0.8480 

0.8467 

0.9234 

1.2747 

2.7331 

9.3114 

SD/MEAN 

0.2075 

0.2343 

0.2361 

0.1 983 

0.1343 

0. 1163 

LOG (MEAN/TRUE) 

-0.  0716 

-0.0723 

-0.0346 

0.1 054 

0.4367 

0. 9690 

LOG  (SD/MEAN) 

-0.6829 

-0.6303 

-0.6269 

-0.7027 

-0.8718 

-0. 9345 
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kp  =  50 . 0  n=50 


DISTANCE 

0.0 

5.0000 

10.0000 

15.0000 

20.0000 

TRUE  DENSITY 
FISHER-WEIGHTED 

50.0000 
Kw  =  2  4  2 

41.3370 

23.3924 

9.1004 

2.4514 

MAXIMUM 

58. 1000 

48.9000 

39.9000 

21.0000 

12.0000 

MI N I MU  M 

22.0000 

15.9000 

11.9000 

2.8000 

0.2000 

MEAN 

40.8000 

34.4000 

22.3000 

10.9000 

3.9000 

STD  DEV 

8.0000 

7.8000 

6.7000 

4.6000 

2.6000 

MEAN/TRUE 

0.8160 

0.8322 

0.9533 

1.1977 

1 . 5909 

SD/M  EA  N 

0.1961 

0.2267 

0. 3004 

0.4  220 

0. 6667 

LOG (MEAN/TRUE) 

-0.0883 

-0.0798 

-0.0208 

0.0784 

0.2017 

LOG (SD/MEAN) 
FISHER-WEIGHTED 

-0.7076 

Kw=100 

-0.6445 

-0.5222 

-0.3747 

-0.1761 

MAXIMUM 

4  0-6000 

36.9000 

30.2000 

17.2000 

10.4000 

MINIMUM 

23.5000 

18.6000 

14.3000 

6.3000 

1.7000 

MEAN 

33.  1000 

29.0000 

20.1000 

11.1000 

4.8000 

STD  DEV 

3.7000 

4.3000 

3.9000 

2.7000 

1.7000 

MEAN/TRUE 

0.6620 

0.7016 

0.8593 

1.2197 

1. 9581 

SD/MEAN 

0.1118 

0.1483 

0.1940 

0.2432 

0.3542 

LOG (MEAN/TRUE) 

-0.1791 

-0.1539 

-0.0659 

0.0863 

0.2918 

LOG (SD/MEAN) 
FISHER-WEIGHTED 

-0.9516 

Kw=50 

-0.8289 

-0.7121 

-0.6140 

-0.4508 

MAXIMUM 

29.4000 

27.1000 

22.3000 

15.1000 

9.2000 

MINIMUM 

20.7000 

17.7000 

13,4  000 

8.0000 

3. 5000 

MEAN 

24.9000 

22.5000 

17.1 000 

10.8000 

5.6000 

STD  DEV 

1.8000 

2..2000 

2.2000 

1.7000 

1.2000 

MEAN/TRUE 

0. 4980 

0. 5443 

0.7310 

1.1868 

2.2844 

SD/MEAN 

0.0723 

0.0978 

0.1287 

0. 1 574 

0.2143 

LOG (MEAN/TRUE) 

-0.  30  28 

-0. 2642 

-0. 1 361 

0.0744 

0.3588 

LOG (SD/MEAN) 
FISHER-WEIGHTED 

-1.  1409 
Kw=25 

-1.0098 

-0.8906 

-0.8030 

-0.6690 

MAXIMUM 

1 8.6000 

17.6000 

15. 2000 

11.7000 

8.0000 

MINIMUM 

15.3000 

13.9000 

11.3000 

7.9000 

4.9000 

MEAN 

16.6000 

15.5000 

12.9000 

9 .4000 

6.1000 

STD  DEV 

0. 7000 

0.9000 

1.0000 

0.9000 

0.7000 

MEAN/TRUE 

0. 3320 

0.3750 

0.5515 

1.0329 

2.4884 

SD/MEAN 

0.0422 

0.0581 

0.0775 

0.0957 

0.  1 1  48 

LOG (MEAN/TRUE) 

-0.4789 

-0.4260 

-0.2585 

0.0141 

0. 3959 

LOG (SD/MEAN) 

-1.3750 

-1.2361 

-1.1106 

-1.0189 

-0.9402 

25.0000 
0. 4618 

4.1000 

0.  0 

0. 9000 

1.1000 
1. 9489 
1.2222 
0. 2898 
0.0872 

4„  1000 
0. 3000 

1.5000 
0. 8000 
3. 2482 
0. 5333 
0. 5116 

-0. 2730 

4.8000 
1.2000 
2.4000 
0..  7000 
5. 1971 
0. 2917 
0.7158 
-0.  5351 

5. 1000 
2. 6000 

3.5000 
0. 5000 
7. 5790 
0.1429 
0. 8796 

-0.  8451 
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kp  =  50 . 0  n  =  1 00 
DISTANCE 
TRUE  DENSITY 
CONSTANT-AREA  A/2tt= 
MAXIMUM 
MINIMUM 
MEAN 
STD  DEV 
MEAN/TRUE 
SD/MEAN 
LOG  (MEAN/TRUE) 

LOG (SD/MEAN) 
CONSTANT-AREA  KAMD 
MAXIMUM 
MINIMUM 
MEAN 
STD  DEV 
MEAN/TRUE 
SD/MEAN 
LOG  (MEAN/TRUE) 

LOG (SD/MEAN) 
CONSTANT-AREA  A/2tt= 
MAXIMUM 
MINIMUM 
MEAN 
STD  DEV 
MEAN/TRUE 
SD/MEAN 
LOG  (MEAN/TRUE) 

LOG  (SD/MEAN) 
CONSTANT- AREA  A/2t= 
MAXIMUM 
MINIMUM 
MEAN  ' 

STD  DEV 

MEAN/TRUE 

SD/MEAN 

LOG  (MEAN/TRUE) 

LOG  (SD/MEAN) 
CONSTANT-AREA  A/2lf= 
MAXIMUM 
MINIMUM 
MEAN 
STD  DEV 
MEAN/TRUE 
SD/MEAN 
LOG (MEAN/TRUE) 

LOG (SD/MEAN) 


0-0 

5.0000 

50.0000 

41.3370 

1% 

50.0000 

43-0000 

29.0000 

22.0000 

38.7000 

33.2000 

5.2000 

5.0000 

0..  774  0 

0*8032 

0-1344 

0. 1 506 

-0-1113 

-0.0952 

-0.8717 

-0.8222 

1  2-  1000 

12.1 000 

1  1-  5000 

11.3000 

11.9000 

11.8000 

0. 2000 

0.2000 

0.2380 

0.2855 

0.  0168 

0.0169 

-0.6234 

-0. 5445 

-1-7745 

-1.7709 

2% 

36-  5000 

34.0000 

25.0000 

22.5000 

31- 3000 

28.1000 

2.6000 

2.8000 

0-6260 

0.6798 

0.  0831 

0.0996 

-  0  -  2  0  3  4 

-0.1676 

-1.0806 

-1.0015 

5% 

1 9-6000 

19.0000 

16. 8000 

15.8000 

1 8- 3000 

17.5000 

0.6000 

0.8000 

0- 3660 

0.4233 

0.0328 

0.0457 

-0.4365 

-0.3733 

-1- 4843 

-1.3399 

10% 

1 0.0000 

10.0000 

9.7000 

9.6000 

9-9000 

9.9000 

0-1000 

0. 1 000 

0-1980 

0.2395 

0.0101 

0.0101 

-0.7033 

-0.6207 

-1.9956 

-1-9956 

10.0000 

15.0000 

23.3924 

9.1004 

31.0000 

18.0000 

13.0000 

4.0000 

20.6000 

10.3000 

4.2000 

3.2000 

0.8806 

1.1318 

0.2039 

0.3107 

-0.0552 

0.0538 

-0.6906 

-0.5077 

11.7000 

1 0.7000 

1  0.i  2  000 

8.7000 

11.1000 

9.6000 

0.4000 

0.5000 

0.4745 

1.0549 

0.0360 

0.0521 

-0.3238 

0.0232 

-1. 4433 

-1.2833 

23.0000 

16.5000 

15.0000 

7.5000 

19.6000 

10.8000 

2.0000 

2.0000 

0.8379 

1.1868 

0.1020 

0.1852 

-0.0768 

0.0744 

-0.9912 

-0.7324 

16.8000 

1 3.0000 

13.6000 

9.0000 

15.1000 

11.0000 

0-8000 

0.9000 

0.6455 

1.2087 

0.0530 

0-0818 

-0- 1 901 

0.0823 

-1.2759 

-1.0871 

10.0000 

9.3000 

8.9000 

7.6000 

9.6000 

8.7000 

0.2000 

0-4000 

0.4104 

0.9560 

0.0208 

0.0460 

-0.3868 

-0.0195 

-1-6812 

-1.3375 

20.0000 

25.0000 

2.4514 

0.4618 

9.0000 

3.0000 

1.0000 

0.0 

3.3000 

0.6000 

1.6000 

0. 7000 

1.3462 

1.2993 

0. 4848 

1.1667 

0. 1 291 

0.  1137 

-0-3144 

0. 0669 

8.4000 

5.4000 

5.9000 

3.1000 

7-1000 

4. 3000 

0.6000 

0. 5000 

2. 8963 

9. 3114 

0.0845 

0.1163 

0-4618 

0.  9690 

-1.0731 

-0. 9345 

8.0000 

3. 5000 

1.5000 

0.0 

4.6000 

1. 2000 

1.4000 

0. 8000 

1.8765 

2.  5985 

0.3043 

0. 6667 

0.2733 

0.  41  47 

-0- 5166 

-0. 1761 

8.0000 

4. 6000 

4.6000 

1.2000 

6.4000 

3.0000 

0.8000 

0. 8000 

2.6108 

6. 4963 

0.  1250 

0.2667 

0.4168 

0. 8127 

-0.9031 

-0. 5740 

7.8000 

5. 6000 

6.1000 

3.9000 

7. 0000 

4. 7000 

0.5000 

0- 4000 

2.8555 

10. 1776 

0.0714 

0.  0851 

0.4557 

1.  0076 

-1.1461 

-1.0700 

■ 
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kp  =  50 . 0  n  =  1 00 


DISTANCE 

0.0 

5.0000 

10.0000 

1 5.0000 

20.0000 

25.  0000 

TRUE  DENSITY 

50.0000 

41.3370 

23.3924 

9.1004 

2.4514 

0. 4618 

CONST.  VAR.  1/3 

MAXIMUM 

80.  3000 

73.0000 

41..  1  000 

23.7000 

9.2000 

4. 1000 

MINIMUM 

26.3000 

20.1000 

13.4000 

5.9000 

2.9000 

1.8000 

MEAN 

49.5000 

37.7000 

24.8000 

11.2000 

5.0000 

2. 6000 

STD  DEV 

14. 1000 

11.7000 

8.4000 

3.8000 

1.2000 

0. 5000 

MEAN/TRUE 

0.9900 

0.9120 

1.0602 

1.2307 

2.0397 

5.  6301 

SD/MEAN 

0.2848 

0.3103 

0.3387 

0.3393 

0.2400 

0. 1923 

LOG  (MEAN/TRUE) 

-0. 0044 

-0.0400 

0.0254 

0.0902 

0.3096 

0. 7505 

LOG  (SD/MEAN) 

-0. 5454 

-0.5082 

-0.4702 

-0.4694 

-0.6198 

-0.7160 

CONST.  VAR.  1/5 

MAXIMUM 

63. 1000 

49.3000 

42.0000 

17.1000 

8.4000 

4.7000 

MINIMUM 

30.9000 

21.6000 

14.5000 

7.8000 

4.3000 

2.  9000 

MEAN 

44.9000 

35.0000 

22.0000 

11.2000 

6.0000 

3.6000 

STD  DEV 

9.4000 

6. 5000 

5.0000 

2-0000 

0.9000 

0.4000 

MEAN/TRUE 

0.8980 

0.8467 

0.9405 

1  .2  307 

2.4476 

7. 7956 

SD/MEAN 

0.2094 

0.  18  57 

0.  2273 

0. 1 786 

0. 1 500 

0.1111 

LOG  (MEAN/TRUE) 

-0..  0467 

-0.0723 

-0.0267 

0.0902 

0. 3887 

0. 8918 

LOG  (SD/MEAN) 
CONSTANT- PROPORTION 

-  0.,  6791 
Vo=1/10 

-0.  7312 

-0..  6  4  35 

-0.7482 

-0.8239 

-0. 9542 

MAXIMUM 

44. 7000 

42.2000 

23-3000 

13.9000 

9.1000 

6.0000 

MINIMUM 

24.7000 

21.8000 

13.7000 

8.6000 

5. 8000 

4.1000 

MEAN 

34.8000 

29.1000 

18.5000 

11.2000 

7.2000 

4. 9000 

STD  DEV 

5.  3000 

4.2000 

2.1000 

1 .1000 

0.6000 

0.4000 

MEAN/TRUE 

0.6960 

0.7040 

0-7909 

1.2  307 

2.9371 

10.6107 

SD/MEAN 

0.1523 

0.1443 

0.1135 

0.0982 

0.0833 

0. 0816 

LOG  (MEAN/TRUE) 

-0.1574 

-0.1524 

-0.1 019 

0.0902 

0.4679 

1.0257 

LOG  (SD/MEAN) 

CON ST A NT- PRO PORTION 

-0.8173 
VD=  1/20 

-0.8406 

-0.9450 

-1.0078 

-1.0792 

-1. 0881 

MAXIMUM 

32.4000 

27.3000 

16.8000 

11.3000 

7.6000 

5.  7000 

MINIMUM 

17.0000 

14.9000 

10.6000 

7.5000 

5.5000 

4.2000 

MEAN 

24.2000 

19.8000 

13.7000 

9.4000 

6.7000 

5. 0000 

STD  DEV 

3.6000 

2.6000 

1.5000 

0.9000 

0. 5000 

0.  3000 

MEAN/TRUE 

0. 4840 

0.4790 

0.5857 

1.0329 

2.7331 

10.8272 

SD/MEAN 

0.1488 

0.1313 

0.1095 

0.0957 

0.0746 

0.  0600 

LOG  (MEAN/TRUE) 

-0. 3152 

-0.3197 

-0.2324 

0.0141 

0.4367 

1.0345 

LOG  (SD/MEAN) 

-0.8275 

-0.8817 

-0.9606 

-1.0189 

-1.1271 

-1. 2218 

, 


0  r.  ■ 
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kp  =50. 0  n  =  100 


DISTANCE 

0..0 

5.0000 

TRUE  DENSITY 

50.0000 

41.3370 

FISHER-WEIGHTED 

Kvj  =  242 

MAXIMUM 

51.9000 

44.3000 

MINIMUM 

28.2000 

20.8000 

MEAN 

40..  7000 

33.2000 

STD  DEV 

6. 1000 

5.8000 

MEAN/TRUE 

0.8140 

0.8032 

SD/MEAN 

0. 1499 

0.1747 

LOG  (MEAN/TRUE) 

-0.0894 

-0.0952 

LOG  (SD/MEAN) 

-0.8243 

-0.7577 

FISHER-WEIGHTED 

Kw  =  1 0  0 

MAXIMUM 

38. 5000 

33.3000 

MINIMUM 

27. 3000 

22.0000 

MEAN 

32.9000 

28.6000 

STD  DEV 

3. 1000 

2.9000 

MEAN/TRUE 

0.6580 

0.6919 

SD/MEAN 

0. 0942 

0.1014 

LOG (MEAN/TRUE) 

-0.  1818 

-0.1600 

LOG  (SD/MEAN) 

-1.0258 

-0.9940 

FISHER-WEIGHTED 

Kw  =50 

MAXIMUM 

28.0000 

25.4000 

MINIMUM 

22. 1000 

19.1000 

MEAN 

24. 8000 

22.4000 

STD  DEV 

1- 5000 

1.5000 

HEAN/TRUE 

0.4960 

0..  5419 

SD/MEAN 

0.0605 

0.0670 

LOG  (MEAN/TFUE) 

-0.  3045 

-0.2661 

LOG (SD/MEAN) 

-1.2184 

-1.1742 

FISHER-WEIGHTED 

Kv/  =  25 

MAXIMUM 

18.0000 

17.0000 

MINIMUM 

1 5. 4000 

14.2000 

MEAN 

16.6000 

15.5000 

STD  DEV 

0.6000 

0.6000 

MEAN/TRUE 

0.3320 

0.3750 

SD/MEAN 

0.0361 

0.0387 

LOG (MEAN/TRUE) 

-0.4789 

-0.4260 

LOG (SD/MEAN) 

-1.4420 

-1.4122 

FISHER-WEIGHTED 

K*=500 

MAXIMUM 

62.3000 

55.7000 

MINIMUM 

24.8000 

14.1000 

MEAN 

44.5000 

34.4000 

STD  DEV 

9.3000 

9.0000 

MEAN/TRUE 

0.8900 

0.8322 

SD/MEAN 

0.2090 

0.2616 

LOG (MEAN/TRUE) 

-0.0506 

-0.0798 

LOG (SD/MEAN) 

-0.6799 

-0.5823 

10.0000 

15.0000 

20.0000 

25. 0000 

23.3924 

9.1004 

2.4514 

0. 4618 

34.6000 

20.0000 

10.7000 

2. 3000 

1 1 .3000 

2.8000 

0.9000 

0.0 

21.6000 

10.1000 

2.9000 

0. 5000 

5.3000 

3 .6000 

1.7000 

0.  6000 

0.9234 

1.1098 

1.1830 

1. 0827 

0.2454 

0.3564 

0. 5862 

1.2000 

-0.0346 

0.0453 

0.0730 

0. 0345 

-0.6102 

-0.4480 

-0.2319 

0.0792 

27.0000 

15.3000 

8.6000 

3.4000 

14.1000 

5.7000 

2.2000 

0. 4000 

19.6000 

10.5000 

4.2000 

1.3000 

2.6000 

2.1000 

1.2000 

0. 6000 

0.8379 

1.1538 

1.7133 

2.8151 

0.1327 

0.2000 

0.2857 

0.4615 

-0.0768 

0.0621 

0.2338 

0.  4495 

-0.8773 

-0.6990 

-0.5441 

-0.3358 

20.3000 

13.5000 

7.6000 

3. 9000 

13.7000 

7.6000 

3.5000 

1. 4000 

16.8000 

10.5000 

5.4000 

2. 3000 

1.4000 

1.2000 

0.9000 

0. 5000 

0.7182 

1- 1 538 

2.2028 

4. 9805 

0.0833 

0.1143 

0.1667 

0. 2174 

-0. 1 438 

0.0621 

0.3430 

0. 6973 

-1.0792 

-0.9420 

-0.7782 

-0. 6628 

14.2000 

1 0.8000 

7.1000 

4.3000 

11.3000 

7.9000 

4. 8000 

2. 6000 

12.8000 

9.4000 

6.0000 

3. 4000 

0.7000 

0.6000 

0.5000 

0. 4000 

0.5472 

1.0329 

2.4476 

7. 3625 

0.0547 

0.0638 

0.0833 

0.  1176 

-0.2619 

0.0141 

0.  3887 

0. 8670 

-1.2621 

-1.1950 

-1.0792 

-0.  9294 

39.6000 

24.4000 

12.3000 

1 . 9000 

7.1000 

1.2000 

0.  1000 

0.  0 

22.4000 

9.7000 

2.  1000 

0. 2000 

8.2000 

5.1 000 

2. 4000 

0.  4000 

0.9576 

1.0659 

0.8567 

0.4331 

0.3661 

0.5258 

1.1429 

2.0000 

-0.0188 

0.0277 

-0.0672 

-0. 3634 

-0.4364 

-0.2792 

0.0580 

0.3010 

,  : 
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kp  =  50 . 0  n=200 


DISTANCE 

0„G 

5.0000 

10.0000 

15.0000 

20.0000 

25.  0000 

TRUE  DENSITY 
CONSTANT- AREA  A/2tt  = 

50.0000 

2% 

41.3370 

'  23.3924 

9.1004 

2.4514 

0.4618 

MAXIMUM 

34.2500 

31.2500 

24.0000 

14.2500 

6.5000 

3.0000 

MINIMUM 

27.7500 

23.5000 

17.5000 

7.5000 

2.5000 

0. 2500 

MEAN 

31.6200 

28.2850 

20.3050 

11.1950 

4.6350 

1.4650 

STD  DEV 

1.5545 

1.5860 

1.6693 

1. 5545 

0.9626 

0. 5670 

MEAN/TRUE 

0.6324 

0.6843 

0.8680 

1.2302 

1.8908 

3.  1724 

SD/MEAN 

0.0492 

0.0561 

0.0822 

0.1389 

0.2077 

0. 3870 

LOG (MEAN/TRUE) 

-0.1990 

-0.1648 

-0.0615 

0.0900 

0. 2766 

0. 5014 

LOG  (SD/MEAN) 
CONSTANT-AREA  A/2tt= 

-1.3084 

5% 

-1.2513 

-1.0851 

-0.8574 

-0.6826 

-0.4123 

MAXIMUM 

19.4000 

18.7000 

16.7000 

12.7000 

8.4000 

4. 1000 

MINIMUM 

1  7.  6000 

16.3000 

13.5000 

9.8000 

5.5000 

1.9000 

MEAN 

18. 3519 

17.5519 

15.1499 

11.1519 

6.6540 

3.0840 

STD  DEV 

0. 3894 

0.4653 

0.5700 

0.6721 

0.6537 

0.4752 

MEAN/TRUE 

0.3670 

0.4246 

0.6476 

1.2254 

2.7144 

6.6782 

SD/MEAN 

0.0212 

0.0265 

0..0376 

0.0603 

0.0982 

0.1541 

LOG  (MEAN/TRUE) 

-0.4353 

-0.3720 

-0.  1  887 

0.0883 

0.  4337 

0. 8247 

LOG (SD/MEAN) 
CONSTANT-AREA  A/2tt  = 

-1.6733 

1% 

-1.5766 

-1.4245 

-1.2199 

-1.0077 

-0. 8122 

MAXIMUM 

46. 0000 

39.0000 

29. 5000 

15.5000 

6.5000 

2.5000 

MINIMUM 

32. 5000 

27.0000 

15.  5000 

7.0000 

1.0000 

0.  0 

MEAN 

39.2000 

33.7000 

21.7000 

10.4000 

3.4000 

0. 8000 

STD  DEV 

2.9000 

2.8000 

2.9000 

1.9000 

1.2000 

0.6000 

MEAN/TRUE 

0.7840 

0.8153 

0.9277 

1.1 428 

1.3870 

1.7324 

SD/MEAN 

0.0740 

0.0831 

0.1336 

0.1827 

0.3529 

0.  7500 

LOG (MEAN/TRUE) 

-0.1057 

-  0 ..  0  8  8  7 

-0.0326 

0.0580 

0.1421 

0. 2386 

LOG (SD/MEAN) 
CONSTANT-AREA  KAMB 

-1.1309 

-1.0805 

-0.8741 

-0.7383 

-0,4523 

-0.  1249 

MAXIMUM 

22.2000 

21.2000 

17.5000 

13.0000 

8.3000 

3.  8000 

MINIMUM 

19.0000 

18.3000 

14.6000 

10.1000 

4.8000 

1. 5000 

MEAN 

20.5000 

19.5000 

16.1000 

11.2000 

6.2000 

2. 6000 

STD  DEV 

0.5000 

0.6000 

0.6000 

0.6000 

0.7000 

0. 5000 

MRAN/TRUE 

0.4100 

0.4717 

0.6883 

1.2307 

2.5292 

5.  6301 

SD/MEAN 

0.0244 

0.0308 

0.0373 

0.0536 

0.1129 

0.1923 

LOG  (  MEAN/TRUE) 

-0.3872 

-0.3263 

-0. 1622 

0.0902 

0. 4030 

0. 7505 

LOG  (SD/MEAN) 

-1.6128 

-1.5119 

-1.4287 

-1.2711 

-0.9473 

-0.7160 

— 
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kp=50 . 0  n=200 


DISTANCE 

0-0 

5.0000 

TRUE  DENSITY 

50.0000 

41.3370 

CON ST A  NT- PRO PORTION 

Vo  =V7 

MAXIMUM 

60.4423 

50.2000 

MINIMUM 

28. 8443 

26.2025 

MEAN 

45..  2508 

38.1012 

STD  DEV 

7.3625 

5.3662 

MEAN/TRUE 

0.9050 

0.9217 

SD/MEAN 

0. 1627 

0.1408 

LOG (MEAN/TRUE) 

-0.0433 

-0.0354 

LOG  (SD/MEAN) 

-0.7886 

-0.8513 

CON  ST A NT- PROPORTION 

V0  =1/10 

MAXIMUM 

49.6391 

46.9559 

MINIMUM 

28.8345 

26.6584 

MEAN 

41.  360  0 

34.3982 

STD  DEV 

4.9129 

3.9306 

MEAN/TRUE 

0.8272 

0.8321 

SD/MEAN 

0.1188 

0.1143 

LOG (MEAN/TRUE) 

-0.0824 

-0.0798 

LOG  (SD/MEAN) 

-0.9252 

-0.9421 

CON  ST A  NT- PRO PORTION 

V0  =1/20 

MAXIMUM 

37.0113 

28.0022 

MINIMUM 

23. 9023 

20.6902 

MEAN 

29.3847 

24.9700 

STD  DEV 

2.  4  32  5 

2.0034 

MEAN/TRUE 

0. 5877 

0.6041 

SD/MEAN 

0. 0028 

0.0802 

LOG (MEAN/TRUE) 

-0.2308 

-0.2189 

LOG (SD/MEAN) 

-1.0821 

-1.0957 

CON ST A  NT- PRO  PORTION 

Vo  =1/3 

MAXIMUM 

98.4000 

106.7000 

MINIMUM 

28.7000 

20.5000 

MEAN 

51.8000 

43.2000 

STD  DEV 

15. 4000 

14.2000 

MEAN/TRUE 

1.0360 

1.0451 

SD/MEAN 

0. 2973 

0.3287 

LOG (MEAN/TRUE) 

0.0154 

0.0191 

LOG  (SD/MEAN) 

-0.5268 

-0.4832 

CON  ST A NT- PRO  PORTION 

V0 =1/5 

MAXIMUM 

69.7000 

55.4000 

MINIMUM 

34.1000 

26.4000 

MEAN 

48. 3000 

40.7000 

STD  DEV 

7.7000 

7.9000 

MEAN/TRUE 

0.9660 

0.9846 

SD/MEAN 

0.1594 

0.1941 

LOG (MEAN/TRUE) 

-0.0150 

-0.0067 

LOG (SD/MEAN) 

-0.7975 

-0.7120 

10.0000 

15.0000 

20.0000 

25.0000 

23.3924 

9.1004 

2.  4514 

0.4618 

28.8443 

14.1514 

7.1902 

4.2283 

16..  2  448 

8.9739 

4.6916 

3.0112 

22.3301 

11.4716 

6.0186 

3.6560 

2.9690 

1.4974 

0.6160 

0.2737 

0.9  54  6 

1.2606 

2.4552 

7.  9168 

0.1 330 

0.1305 

0.1023 

0. 0749 

-0.0202 

0.1006 

0.3901 

0. 8986 

-0.8763 

-0.8843 

-0.9899 

-1.1257 

25.671 1 

13.8510 

8. 4792 

5.0126 

16.9318 

9.5513 

5.7207 

3.  8424 

20.9156 

11.6217 

6. 8696 

4.4051 

2.0685 

0.9890 

0.5289 

0. 2838 

0.8941 

1.2771 

2.8023 

9. 5390 

0.0989 

0.0851 

0.0770 

0. 0644 

-0.0486 

0.1062 

0. 4475 

0. 9795 

-1.0048 

-1.0701 

-1.1136 

-1.1909 

1 9.8098 

12.4813 

8.1546 

5.7239 

1  3.6893 

8.8685 

6.2389 

4.  5409 

16.4549 

10.6184 

7.1991 

5.  1525 

1-2791 

0.7216 

0.4058 

0. 2431 

0.7  03  4 

1 . 1668 

2.9367 

11.1574 

0.0777 

0.0680 

0-0564 

0.0472 

-0. 1 528 

0.0670 

0.4679 

1 . 0476 

-1.1094 

-1.1678 

-1.2490 

-1 . 3262 

47. 4000 

1 7.0000 

6.7000 

2.7000 

11.8000 

6-0000 

2.4000 

1.2000 

25.2000 

1 0.4000 

4.0000 

1. 8000 

7.7000 

2-7000 

0.8000 

0. 3000 

1.0773 

1 .1 428 

1.6317 

3. 8978 

0.3056 

0.2596 

0.2000 

0. 1667 

0.0323 

0.0580 

0.2126 

0. 5908 

-0.5149 

-0.5857 

-0.6990 

-0.7782 

39.4000 

1 5-4000 

6.8000 

3.6000 

15.9000 

7.5000 

3.8000 

2. 2000 

23.9000 

10.7000 

5. 1000 

2. 8000 

5.0000 

1.7000 

0.6000 

0. 3000 

1.0217 

1-1758 

2.0804 

6.0632 

0.2092 

0.1589 

0.1176 

0. 1071 

0.0093 

0.0703 

0-3182 

0.7827 

-0.6794 

-0.7989 

-0.9294 

-0.  9700 

r 


■ 
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kp  =50 „ 0  n=200 

DISTANCE 

0.0 

5.0000 

10.0000 

15.0000 

20.0000 

25.0000 

TRUE  DENSITY 

50.0000 

41.3370 

23.  3924 

9.1004 

2-4  514 

0.4618 

FISHER-WEIGHTED 

K*  =  242 

MAXIMUM 

51.7000 

44.5000 

33.4000 

14.4000 

6.4000 

3.0000 

MINIMUM 

31.9000 

25.8000 

14.7000 

5.9000 

0.7000 

0.0 

MEAN 

41.4000 

35.4000 

22.3000 

9.9000 

3.1000 

0. 7000 

‘ STD  DEV 

3.7000 

4.0000 

3.4000 

2.2000 

1.2000 

0.6000 

MEAN/TRUE 

0.8280 

0.8564 

0.9  53  3 

1.0879 

1.2646 

1.5158 

SD/MEAN 

0.0894 

0.1130 

0.1 525 

0.2222 

0.3871 

0. 8571 

LOG  (MEAN/TRUE) 

-0.0820 

-0.0673 

-0.0208 

0.0366 

0.1019 

0.  1806 

LOG  (SD/MEAN) 

-1.0488 

-0.9469 

-0.8168 

-0.6532 

-0.4122 

-0.0669 

FISHER-WEIGHTED 

Kw= 100 

MAXIMUM 

37.9000 

33.1 000 

25. 8000 

14.3000 

5.9000 

2. 5000 

MINIMUM 

28.5000 

24.7000 

16.3000 

8.2000 

2.5000 

0. 4000 

MEAN 

33.4000 

29.4000 

20.1000 

10.6000 

4. 3000 

1 . 3000 

STD  DEV 

1.8000 

1.7000 

1.7000 

1.3000 

0.8000 

0. 4000 

MEAN/TRUE 

0.6680 

0.7112 

0.8593 

1.1648 

1.7541 

2.8151 

SD/MEAN 

0.0539 

0.0578 

0.0846 

0.1226 

0. 1 860 

0.3077 

LOG (MEAN/TRUE) 

-0.1752 

-0.1480 

-0.0659 

0.0662 

0. 2441 

0. 4495 

LOG  (SD/MEAN) 

-1.2685 

-1.2379 

-1.0727 

-0.9114 

-0.7304 

-0. 5119 

FISHER- WEIGHTED 

Kw  =  50 

MAXIMUM 

27.4000 

24.9000 

19.6000 

13.0000 

6.9000 

3.0000 

MINIMUM 

22. 7000 

20.6000 

15.4000 

9.2000 

4.2000 

1.5000 

MEAN 

25.0000 

22.7000 

17.1000 

10.6000 

5-4000 

2.3000 

STD  DEV 

0.9000 

0.8000 

0.9000 

0.8000 

0.6000 

0.4000 

MEAN/TRUE 

0.5000 

0.5491 

0.7310 

1.1648 

2.2028 

4.  9805 

SD/MEAN 

0.0360 

0.0352 

0.0526 

0.0755 

0.1111 

0. 1739 

LOG (MEAN/TRUE) 

-0.3010 

-0.2603 

-0. 1 361 

0.0662 

0.3430 

0. 6973 

LOG (SD/MEAN) 

-1. 4437 

-1.4529 

-1.2788 

-1.1222 

-0.9542 

-0. 7597 

FISHER-WEIGHTED 

K*  =  2S 

MAXIMUM 

17.7000 

16.7000 

13.8000 

10.5000 

7.0000 

4.1000 

MINIMUM 

1 5.7000 

14.8000 

12.2000 

8.6000 

5. 3000 

2. 8000 

MEAN 

16.7000 

15.6000 

12.9000 

9.4000 

6.0000 

3.4000 

STD  DEV 

0. 3000 

0.3000 

0.3000 

0.4000 

0.3000 

0.2000 

MEAN/TRUE 

0. 3340 

0.3774 

0.5515 

1  .0329 

2.4476 

7. 3625 

SD/MEAN 

0.0180 

0.0192 

0.0233 

0.0426 

0.0500 

0.0588 

LOG (MEAN/TRUE) 

-0.  47  6  3 

-0.4232 

-0.2585 

0.0141 

0.3887 

0. 8670 

LOG  (SD/MEAN) 

-1.7456 

-1.7160 

-1.6335 

-1.371  1 

-1.3010 

-1. 2304 

' 
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kp=1 00. 0  n  =  1 00 


DISTANCE 

0.0 

5.0000 

10.0000 

1 5.0000 

20.0000 

25.0000 

TRUE  DENSITY 
CONSTANT-AREA  A/2ir= 

100..0000 

2% 

68.3500 

21.8882 

3.3127 

0. 2404 

0.0085 

MAXIMUM 

46.5000 

41.5000 

31 .0000 

15.5000 

4.5000 

1. 0000 

MINIMUM 

39.0000 

32.5000 

20.0000 

5.5000 

0.5000 

0.0 

MEAN 

43.3000 

37.8700 

24.6400 

10.0600 

2.2800 

0. 2500 

STD  DEV 

1.6413 

1.7317 

2.6689 

2.0016 

0.9322 

0. 3388 

MEAN/TRUE 

0.4330 

0.5541 

1.1 257 

3.0368 

9.4842 

29.  4H8 

SD/MEAN 

0.0379 

0.0457 

0.1083 

0.1990 

0.4089 

1.3552 

LOG (MEAN/TRUE) 

-0.3635 

-0.2564 

0.0514 

0.  4824 

0. 9770 

1 . 4685 

LOG  (SD/MEAN) 
CONSTANT-AREA  A/2tt= 

-1.4213 

5% 

-1  .3398 

-0.9653 

-0.7012 

-0. 3884 

0. 1320 

MAXIMUM 

20.0000 

20.0000 

19.0000 

1  5.2000 

9.0000 

3. 2000 

MI  NIMUN 

19.4000 

19.0000 

16.4000 

10.6000 

5.2000 

1.0000 

MEAN 

19.8879 

19.5279 

17. 8199 

12.9999 

6.5240 

1.8440 

STD  DEV 

0.1585 

0.2708 

0.6087 

1.0083 

0.8192 

0. 5589 

MEAN/THUE 

0. 1989 

0.2857 

0.8141 

3.9243 

27.1381 

216. 9412 

SD/MEAN 

0.0080 

0.0139 

0.0342 

0.0776 

0.  1256 

0. 3031 

LOG  (MEAN/TRUE) 

-0.7014 

-0.5441 

-0.0893 

0.5938 

1.4336 

2. 3363 

LOG (SD/MEAN) 
CONSTANT-AREA  A/2ir  = 

-2.0986 

1% 

-1.8580 

-1.4665 

-1.1103 

-0.9011 

-0.  5184 

MAXIMUM 

73.0000 

62.0000 

34.0000 

16.0000 

5.0000 

1.0000 

MI  NIMUM 

54.0000 

41.0000 

14.0000 

2.0000 

0.0 

0.0 

MEAN 

63. 6000 

50.9000 

24.9000 

7.8000 

1.3000 

0.1000 

STD  DEV 

4. 8000 

4.2000 

4.8000 

2.9000 

1.1000 

0.3000 

MEAN/T RUE 

0.6360 

0.7447 

1.1376 

2.3546 

5.4077 

11. 7647 

SD/MEAN 

0. 0755 

0.0825 

0.1 928 

0.3718 

0.8462 

3.0000 

LOG  (MEAN/TRUE) 

-0. 1965 

-0.1280 

0.0560 

0.3719 

0.7330 

1.0706 

LOG  (SD/MEAN) 
CONSTANT-AREA  KAMB 

-1,.  1222 

-1 . 0835 

-0.7150 

-0.4297 

-0.0726 

0. 4771 

MAXIMUM 

12. 1000 

12.1000 

12.1000 

11.8000 

9.6000 

5. 3000 

MINIMUM 

12.0000 

12.0000 

11.5000 

10.4000 

7.2000 

2. 4000 

MEAN 

1  2.v  1000 

12.0000  ' 

11.9000 

1  1.0000 

8.3000 

4.2000 

STD  DEV 

0.0 

0.0 

0.1000 

0.3000 

0.4000 

0.6000 

MEAN/TRUE 

o 

m 

—A 

N) 

-Jk 

O 

0. 1 756 

0.5437 

3.3206 

34.5258 

494.  1177 

SD/MEAN 

0.0 

0.0 

0.0084 

0.0273 

0.0482 

0. 1429 

LOG (MEAN/TRUE) 

-0.9172 

-0.7556 

-0.2647 

0.5  212 

1. 5381 

2. 6938 

LOG  (SD/MEAN) 

-10.0000 

-10.0000 

-2.0755 

-1.5643 

-1.3170 

-0. 8451 

■ 


43? 


kp  =  1 00 . 0  n  =  1 00 


DISTANCE 

0.0 

5.0000 

TRUE  DENSITY 

100.0000 

68. 3500 

CON ST A NT- PRO PORTION 

Vo  -1/7 

MAXIMUM 

155..  9984 

74. 8437 

MINIMUM 

56. 3471 

44.2727 

MEAN 

80.9046 

57.4448 

STD  DEV 

16. 2389 

8.0418 

MEAN/TRUE 

0.8090 

0.8405 

SD/MEAN 

0.2007 

0.1 400 

LOG (MEAN/TRUE) 

-0. 0920 

-0.0755 

LOG  (SD/MEAN) 

-0.6974 

-0.8539 

CON  ST A NT- PRO PORTION 

Vo  ~1/10 

MAXIMUM 

96.7491 

69.7631 

MINIMUM 

53. 4326 

36.2028 

MEAN 

67.9624 

49. 6058 

STD  DEV 

8.3673 

6.1682 

MEAN/TRUE 

0. 6796 

0.7258 

SD/MEAN 

0.1231 

0.1243 

LOG (MEAN/TRUE) 

-0. 1677 

-0.1392 

LOG (SD/MEAN) 

-0.9097 

-0.9054 

CON  ST A NT- PRO PORTION 

V0  =  1/20 

MAXIMUM 

56.6080 

38. 8975 

MINIMUM 

37. 5246 

24.9456 

MEAN 

47.  2800 

34.0660 

STD  DEV 

5. 2999 

3..  3  695 

MEAN/TRUE 

0.4728 

0..4984 

SD/MEAN 

0. 1121 

0.0989 

LOG  (MEAN/TRUE) 

-0. 3253 

-0. 3024 

LOG (SD/MEAN) 

-0.9504 

-1.0048 

CON  ST A NT- PRO PORTION 

V0=1/3 

MAXIMUM 

180.5000 

131.3000 

MINIMUM 

49.2000 

34.1000 

MEAN 

97.6000 

67.5000 

STD  DEV 

33.4000 

21.5000 

MEAN/TRUE 

0.9760 

0.9876 

SD/MEAN 

0. 3422 

0.3185 

LOG (MEAN/TRUE) 

-0.0106 

-0.0054 

LOG (SD/MEAN) 

-0.4657 

-0.4969 

CONSTANT- PROPORTION 

V0=  1/5 

MAXIMUM 

127. 2000 

102. 6000 

MI  NIMUM 

57.8000 

36.5000 

MEAN 

88.3000 

61.0000 

STD  DEV 

16..  0000 

14. 1000 

MEAN/TRUE 

0. 8830 

0.8925 

SD/MEAN 

0.1812 

0. 2311 

LOG  (MEAN/TRUE) 

-0.  0540 

-0.0494 

LOG (SD/MEAN) 

-0.7418 

-0.6361 

10.0000 

15.0000 

20.0000 

25.0000 

21.8882 

3.3127 

0. 2404 

0.0085 

35.9642 

15.6068 

8.0762 

4.8580 

18.5056 

9.6848 

5.9694 

3. 8170 

25.8164 

12.2208 

6.8232 

4. 3930 

3.5592 

1.2343 

0. 5210 

0.2865 

1.1795 

3.6891 

28.3827 

516. 8235 

0. 1 379 

0.1010 

0. 0764 

0. 0652 

0.0717 

0.5669 

1. 4531 

2.7133 

-0.8605 

-0.9957 

-1. 1171 

-1. 1856 

31. 5684 

16.0049 

9.1200 

6.  1905 

19.1892 

10.6245 

6.9187 

4.6792 

24.7033 

13.1  496 

7.9583 

5.3308 

2.8381 

1.2405 

0.5558 

0. 3524 

1.1286 

3.9695 

33.1 044 

627.  1528 

0. 1 149 

0.0943 

0. 0698 

0. 0661 

0.0525 

0.5987 

1.5199 

2.7974 

-0.9397 

-1.0253 

-1.1559 

-1.1798 

22.2003 

13.7628 

9.4848 

6.  6199 

16.5  497 

10.5667 

7.2617 

5.3964 

19.8419 

12.2503 

8.2005 

5. 8615 

1.3916 

0.7457 

0.4558 

0.2940 

0.9065 

3.6980 

34.1119 

689. 5881 

0.0701 

0.0609 

0.0556 

0.0502 

-0.0426 

0.5680 

1.  5329 

2. 8386 

-1.1541 

-1.2156 

-1. 2551 

-1.2997 

65.6000 

16.0000 

5.4000 

2. 8000 

12.  0  000 

5.9000 

2.6000 

1. 4000 

28.0000 

8.8000 

3.8000 

2.1000 

9.6000 

1 9  0  0  0 

0.6000 

0. 3000 

1.2792 

2.6564 

15.8070 

247.0589 

0.3429 

0.2159 

0.1579 

0. 1429 

0.  1  06  9 

0. 4243 

1.1988 

2. 3928 

-0. 4649 

-0.6657 

-0. 8016 

-0.  8451 

38.3000 

1 3.8000 

6.7000 

4.0000 

17.0000 

6.7000 

4.2000 

2.7000 

25.6000 

10.7000 

5.4000 

3.3000 

4.9000 

1.6000 

0.6000 

0.3000 

1.1696 

3.2300 

22.4626 

388. 2354 

0.1914 

0. 1  495 

0.1111 

0.  0909 

0.0680 

0.5092 

1.3515 

2. 5891 

-0.7180 

-0.8253 

-0.9542 

-1.0414 

■ 
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kp=1 00. 0  n=1 00 


DISTANCE 

0„0 

5.0000 

TRUE  DENSITY 

100.0000 

68.3500 

FISHER-WEIGHTED 

K^=242 

MAXIMUM 

84.4000 

73.2000 

MINIMUM 

54.5000 

38.4000 

MEAN 

70.  2000 

53.6000 

STD  DEV 

6..  3000 

7.4000 

MEAN/TRUE 

0.7020 

0..7842 

SD/MEAN 

0.  0897 

0. 1381 

LOG (MEAN/TRUE) 

-0. 1537 

-0.1056 

LOG (SD/MEAN) 

-1.0470 

-0.8599 

FISHER-WEIGHTED 

Kw  = 100 

MAXIMUM 

55.  8000 

48.0000 

MINIMUM 

43.  4000 

34.6000 

MEAN 

49. 9000 

41.4000 

STD  DEV 

2.5000 

3.0000 

MEAN/TRUE 

0.4990 

0.6057 

SD/MEAN 

0.0501 

0.0725 

LOG  (MEAN/TRUE) 

-0..  3019 

-0.2177 

LOG (SD/MEAN) 

—  1 ...  3002 

-1.1399 

FISHER-WEIGHTED 

K*/=50 

MAXIMUM 

35.7000 

32. 1000 

MINIMUM 

30.5000 

26. 4000 

MEAN 

33.3000 

29.4  000 

STD  DEV 

1.0000 

1.2000 

MEAN/TRUE 

0.3330 

C.4301 

SD/MEAN 

0. 0300 

0.0408 

LOG (MEAN/TRUE) 

-0.4776 

-0.3664 

LOG (SD/MEAN) 

-1. 5224 

-1.3892 

FISHER-WEIGHTED 

Kw=25 

MAXIMUM 

2  0. 80 CO 

19.5000 

MINIMUM 

19.0000 

17.4000 

MEAN 

20. 0000 

18.5000 

STD  DEV 

0.3000 

0.4000 

MEAN/TRUE 

0.2000 

0.2707 

SD/MEAN 

0. 0150 

0.0216 

LOG (MEAN/TRUE) 

-0.6990 

-0.5676 

LOG (SD/MEAN) 

-1.8239 

-1.6651 

10.0000 

15.0000 

20.0000 

25.0000 

21.8882 

3.3127 

0.2404 

0.0085 

35.3000 

14.5000 

3.5000 

1. 3000 

16.1000 

2.0000 

0.0 

0.0 

25.0000 

6.9000 

1.0000 

0. 1000 

4.9000 

2.5000 

0.8000 

0.2000 

1. 1 422 

2.0829 

4.1597 

11.7647 

0.1960 

0.3623 

0.8000 

2. 0000 

0.0577 

0.3187 

0.6191 

1.0706 

-0.7077 

-0.4409 

-0.0969 

0. 3010 

28.4000 

14.1000 

5.0000 

1.2000 

17.5000 

5.9000 

1.1000 

0.  1000 

23.7000 

9.4000 

2. 5000 

0.4000 

2.6000 

1.7000 

0.7000 

0.  2000 

1.0828 

2.8376 

10.3993 

47. 0588 

0. 1 097 

0.1809 

0.2800 

0. 5000 

0.0345 

0.4529 

1.0170 

1. 6726 

-0.9598 

-0.7427 

-0.5528 

-0. 3010 

22.7000 

13.4000 

6.4000 

2. 4000 

17.0000 

8.3000 

3.3000 

0. 9000 

20.3000 

10.9000 

4.5000 

1. 5000 

1 .3000 

1.1000 

0.7000 

0. 3000 

0.9274 

3.2904 

18.7188 

176. 4706 

0.0640 

0.1009 

0. 1 556 

0. 2000 

-0.0327 

0.5172 

1.2723 

2.2467 

-1.1 936 

-0.9960 

-0.8081 

-0.  6990 

15.9000 

11.3000 

7.1000 

3. 8000 

13.  5000 

8.8000 

5.0000 

2.5000 

14.8000 

10.2000 

6.0000 

3.1000 

0.5000 

0.5000 

0. 4000 

0. 3000 

0.6762 

3.0791 

24. 9584 

364.  7058 

0.0338 

0.0490 

0.0667 

0. 0968 

-0.1699 

0.4884 

1. 3972 

2. 5619 

-1. 4713 

-1.3096 

-1.1761 

-1. 0142 
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